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HOBBI 


EUKTROMIK 


Urbán István mérnök áramköreinek szaklizlete 

Budapest VII., Dózsa György út 16. (Dózsa-Jobbágy sarok.) 
Nyitva: H-P 10-17-lg Tei./fax: 122-8892 
(Zárás után üzenetrögzítő) 


KÍNÁLATUNKBÓL 


SZÁMÍTÁSTECHNIKA; 

I C64 BŐVÍTŐK 

egys. 

élesztve] 

PLOFI Dalassette cartridge 

1.200 

Ft 

1.500 

Ft 

PLOFI Help + cartridge 

1.200 

Ft 

1.500 

Ft 

PLOFI FASTLOAD cartridge 

1.200 

Ft 

1.500 

Ft 

PLOFI FASTLOAD + SPEEDTAPE 

1.500 

Ft 

1.700 

Ft 

PLOFI SIMON'S cartridge 

1.500 

Ft 

1.700 

Ft 

PLOFI JÁTÉK cartridge 

1.500 

Ft 

1.700 

Ft 

ACTION REPLAY MK7 cartridge 

— 


3.450 

Ft 

ATOMIG POWER cartridge 

— 


3.450 

Ft 

FINAL III. cartridge 

— 


3.450 

Ft 

PAGEFOX DTP cartridge 

3.200 

Ft 

3.900 

Ft 

MINI EPROMBANK cartridge 

2.300 

Ft 

2.900 

Ft 

EPROMBANK 256 Kbájt 

2.900 

Ft 

4.000 

Ft 

C64 DOKTOR teszt cartridge 

2.300 

Ft 

3.000 

Ft 

EPROMÉGETÓ (2716-27512-ig) 

3.400 

Ft 

4.500 

Ft 

IC TESZTER (kb. 180 TTL IC) 
256K RAM BÓvITÓ RAM lioppi 

2.700 

Ft 

3.900 

11.800 

Ft 

Ft 

FÉNYCERUZA t szoftver 

950 

Ft 

1.450 

Ft 

HANGDIGITALIZÁLÓ + szoftver 

1.350 

Ft 

1.700 

Ft 

HANGKAPCSOLÓ + szoftver 

700 

Ft 

990 

Ft 

DATASSETTE lejbeállító 

390 

Ft 

— 


CPU STOP + RÉSÉT 

400 

FI 

— 


FREKVENCIAMÉRÓ 30 MHz 

1.300 

Ft 

1.800 

FI 

l/O BÓvItÓ 8255-tel 

1.400 

Ft 

1.800 

Ft 

JOYSTICK autonrata 

1.500 

Ft 

1.900 

Ft 

USER CENTRONICS kábel 

750 

Ft 

— 


IBM BÓVÍTÓK 

egys. 

élesztve 


IBM IC TESZTER + szoftver 5.900 Ft 9.800 Ft 

IBM EPROMÉGETÓ + szoftver 4.800 Ft 9.900 Ft 

IBM EPROMÉGETÓ tápegység 1.200 Ft t benne 

IBM COOEC HANGKÁRTYA 3.800 Ft 4.800 Ft 


IBM KOVOX - 700 Ft 

IBM AKTÍV KOVOX 1.600 Ft - 

IBM l/O KÁRTYA 48 vonal 3.500 Ft - 

IBM GÁL PROGRAMOZÓ 6.500 Ft 8.500 Ft 


TANGÓ PLD jogtlszta szoftver. Kérjen árajárMotf 
TANGÓ NYÁCTEVEZÓ Jogtiszta szoftver 
TTL, CMOS, TRANZISZTOR, DIÓDA MEMÓRIA 
katalógus ftoppylemezen, egységesen: 600 Ft/db 


AKCIÓI Amíg a készlet tarti MONITORUÁSÁR 



Monochrom, zöld színű, 28 cm átlójú új monitorok C-64, Plus/4 stb. gépekhez. 
Ára: tápegységgel csak 1700 Ft (ÁFA-val), tápegység nélkül 600 Ft (ÁFA-val) 


Áraink a 25% ÁFA-t tartalmazzák! 


Szaküzletemben vásárolhat a Commodore Újság HOBBI ELEKTRONIKA rovatában megjelent hardverleírásokhoz 
(működő minta alpján) panelt, egységcsomagot, vagy készre szerelt áramkört. 


MŰSZERVÁSÁR 

Bontott anyagok, 
használt műszerek 
böngészdéje 



Állandóan változó készlet! 


Vidéki olvasóknak segít a szerző levelező, egységcsomagkúidő 
szolgáltatása: a megrendelt csomagot postán utánvéttel 
elküldőm. Telefonon/faxon és levélben is rendelhet. 

A HOBBI ELEKTRONIKÁ-hoz nem kell hosszú levél. Rendelését 
néhány sorban, egyértelműen közölje. 

Levélcím: 1656 Budapest Pf. 50. 


Az Üzletben megvásárolhatók az RT évkönyvei, a Rádiótechnika és a Hobby Elektronika korábbi számai. 
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EGYESÜLET 


Cr 



EGYESÜLETI ÜGYEK: Egyesületünknek tagja lehet min¬ 
denki, aki a tagsági díjat befizeti. A tagdíjat személyesen az 
egyesület irodájában (1025 Budapest, Vöröstorony utca 29. 
Telefon: 1-76-22-57), vagy átutalással az MNB 217-98 292, OTP 
565-3610-8 számlára lehet befizetni. Megrendelés esetén szám¬ 
lát küldünk. 

Pötyögőszolgálatunk valamint a szervizkedvezmény és az 
apróhirdetés lehetősége tagjaink rendelkezésére áll. 

A DEÁKPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, a tagsági díj egy egy évre 890 Ft. 

A PLUSZPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, és kapnak havonta 3 db vásárlási utalványt. A tagsági 
díj egy évre 2050 Ft. 

A SZUPERPÁHOLY tagjai havonta 15 példányt kapnak a 
C-újságból, és ezzel havonta 15x3 db vásárlási utalványt is. Az 
éves tagsági díj 24 000 Ft. 

ÜGYFÉLFOGADÁS: Minden kedden és csütörtökön 12—16 
óra között várjuk tanainkat és az érdeklődőket. 
PÖTYÖGŐSZOLGÁLAT: Az új.ságban megjelenő programo¬ 
kat másolja a megrendelők részére. Megrendelhető személyesen 
az egyesület irodájában vagy postai utánvéttel. Postacím: 1388 
Budapest 62., Postafiók: 86. 

APRÓHIRDETÉS: Az egyesületi tagoknak ingyen áll rendel¬ 
kezésére. Nem tagoknak a hirdetés ára 300 forint. A hirdetés 
módja: az újságban megjelenő nyomtatvány kitöltésével. 

A C-ÚJSÁG RÉGEBBI SZÁMAI megvásárolhatók az egyesü¬ 
let irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ár! Tagoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetők. VC 20, C16, PLUS/4, C128, C64. To¬ 
vábbi felvilágosítást is adunk a 1-76-22-57-es telefonszámon vagy 
levélben! 

Vidéki pluszpáholy-tagjaink háromhavi tikett összegyűjté¬ 
sekor igénybe vehetik a NOVOTRADE 2C Áruház csomagküldő 
szolgálatát. 

VIDÉKEN TOVÁBBI INFORMÁCIÓK KAPHATÓK: 

Baja, AXIS Kft., 

Győri Bartók Béla Művelődési Ház, 

Jászberényi Városi Könyvtár, 

Kecskemét, SZIGMA-BIT, 

Pécsi Apáczai Csere János Gimnázium, 

Zalaegerszegi Ságvári Endre Gimnázium. 


Az Országos Commodore Egyesület módszertani kiadványa 

Egyesületi iroda és szerkesztőség: 

1025 Budapest, Vöröstorony utca 29. Telefon: 1-76-22-57 

Felelős kiadó: Horváth Judit, az egyesület elnöke 

Főszerkesztő: Rados Péter, az OCE főtitkára 

Felelős szerkesztő: dr. Horváth András 

Művészeti szerkesztő: Bausz Sándor 

Levélcím: Commodore Újság, 1388 Budapest, 62, Pf.: 86. 

Index: ISSN 0237-756 X 

Terjeszti a Magyar Posta 

Megvásárolható a hírlapárusoknál 

93.0314 MSZH Nyomda és Kiadó Kft., Budapest 

Felelős vezető: Nagy László 


Tagdíjfizetés 

Kedves Tagtársaink! 

Az év vége közeledtével felhívjuk figyelmüket az 1994. 
évi tagdíjuk befizetésére. Bár nem szeretnénk, de lehet, 
hogy kénytelenek leszünk emelni a tagdíjakat. 

A tavalyihoz hasonlóan azonban az idén is lehetőséget 
adunk arra, hogy aki még 1993-ban befizeti a jövő 
évi tagdíját, az mindenképpen a régi áron teheti. 
Deákpáholy 890 Ft, pluszpáholy 2050 Ft, 
szuperpáholy 24 000 Ft. 

Régi tagjaink a csekket az újsággal együtt kapják meg, 
de elküldhetik a tagdíjat rózsaszínű postai utalványon 
is OTP számlaszámúnkra. 

MNB 217-98 292, OTP 565-3610-8 

Országos Commodore Egyesület 
í _ 


C-64 C+4 


tulajdonosok! 

i Várunk benneteket az Országos Commodore 
Egyesület klubdélelőttjén a Havaima Közösségi 
Házban minden hónap 3. vasárnapján, délelőtt 9 
órától. Gépet és hosszabítót hozzatok! 

Cím: 1181 Budapest, Kondor Béla sétány 8. 
Megközelíthető: a metró kőbánya-kispesti végál¬ 
lomásától a piros 136-os busszal. 

Legközelebb: 

január 16-án. 


FELHÍVÁS 

Tisztelt Tagtársunk, Olvasóink! 

Kérjük, hogy ha rendelkeznek olyan működő számító¬ 
géppel, vagy jó állapotban lévő bármilyen számítógép¬ 
tartozékkal, amire nincs szükségük, akkor hozzák el 
egyesületi irodánkba (minden héten kedden és csütörtö¬ 
kön 11—15 óra között). 

Mi összegyűjtjük és eljuttatjuk azokat határainkon túli 
(erdélyi, kárpátaljai és szlovákiai) magyar iskolákhoz. 
Köszönettel: 

Országos Commodore Egyesület 


Tisztelt Szerkesztőség! 

Pár hónapja úgy adódott, hogy egy régebben C64-esre meg¬ 
írt, elég terjedelmes programot IBM PC-re kellett átírnom, és 
ott továbbfejlesztenem. Nagyon nehezemre esett volna a közel 
ezer sort újra beírnom, ezért elkezdtem keresni a megoldást, ho¬ 
gyan vihetném át a BASIC forrásprogramot a PC-re, hogy ott 
aztán a QuickBASIC alatt — amely szinte teljesen kompatibilis 
a C64 BASIC-jével — futtathassam. Hasonló okokból másoknak 
is lehet ilyen problémája, ezért szeretném bemutatni az én meg¬ 
oldásomat. 
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EGYESÜLET 



o 

o 

o 

c 

o 

o 

o 

c 

o 

o 

o 

0 

o 

o 

o 

ü 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 


O 



rém *»» c64-pc data transfer * 
def fnt(x)=ti+x»60 

d0=56577: dl=56576: d2=56589: m0=56579: ml=56578 

poke 53280,0: poke 53281,0: print transfer 

poke m0,128: poke ml,63: poke d0,128: a=0: f=4: gosub 630 

Walt 197,64: poke 198,0 

rém- 

print "íiiSYSTEM READY" 

e=0: gosub 470: if e then print : gosub 700: goto 170 
get vS: if v$=“" then 180 

if then sJ="hello!": gosub 230: gosub 700: poke 198,0: goto 170 

poke m0,0: print "grt- end -íüi" : end 
rém ====== data out (s$; ) ====== 

print "sending message...": v=peek(d2): e=0 

rém - attention! 

poke d0,0: a=8: f=0: gosub 630 

rém-ready? 

t=fnt(10) 

if ti>t then e=2: return 

if (peek(d2) and 16)=0 or (peek(d0) and 127) then 280 

rém - message 

if sS=“" then 350 

fór i=l to len(sS): b=asc(midS(sS,i)): gosub 420: if e then return 
next i 

rém - disconnect! 

poke d0,128: a=0: gosub 610 

rém - released? 

t=fnt(10) 

if ti>t then e=4: return 

if (peek(d2) and 16)=0 or < peek (d0) and 127)064 then 380 
return 

rém ====== send byte (b;) 

gosub 610: gosub 650: if e then return 
fór x= 1 to 8 

poke d0,b: b=(b*2) and 255: gosub 610: gosub 650: if e then return 

next x: return 

rém ====== data in ====== 

if (peek(d2) and 16)=0 or (peek(d0) and 127)063 then return 
rém- 


Ü 


Ü 

O 

O 

O 

Ü 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 


a=8: f=0: gosub 630: print "getting message. .. lijj" 
gosub 650: if e then return 

if (peek(d0) and 127)=64 then e=l: return 
gosub 610: gosub 550: if e then return 
print chr$(b);: goto 500 
rém ====== get byte (;b) 

gosub 650: if e then return 
z=peek(d0): gosub 610: b=(z and 48)*4 
gosub 650: if e then return 
z=peek(d0): gosub 610: b=b+(z and 63) 
return 

rém ====== toggle flag (a,f;) 

f=4-f: gosub 630: return 
rém ====== flag lines (a,f;) 

poke dl,147 or a or f: return 
rém ====== wait answer 

t=fnt(2) 

if peek(d2) and 16 then return 

if ti>t or (peek(d0) and 64) then e=3: return 
goto 660 

rém ====== report 8. close (e;) 

restore : fór i=0 to e; read v$: next i: print ‘’|í"v3f 
poke d0,12S: poke dl,151: return 
data "message transferred" 
data "message récéived" 
data "device nőt present" 
data "iost contact" 
data "disconnection error" 


O 

O 

o 

o 

o 

o 


o 
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o 


o 


o 


o 


o 


o 


o 


o 


o 


o 



PC printer 

port 





ü 

-STROBE 

037A:0 o 0 

14 

-AUTOFD 

037A:1 

o 

0 

o 

DATA0 

0378:0 o 0 

15 

ERROR 

0379:3 

i 

1 

DATAl 

0378:1 o 0 

16 

INIT 

037A:2 

o 

1 


DATA2 

0378:2 o 0 

17 

-SELIN 

037A:3 

o 

1 

o 


2 

3 

4 

5 DATA3 

6 DATA4 

7 DATA5 

8 DATA6 

9 DATA? 

10 ACK 

11 -BUSY 

12 PAPER 

13 SELECT 


0378 :3 
0378:4 
0378:5 
0378:6 


o 0 
o 0 


0 

0 


0378:7 o 0 


0379:6 

0379:7 

0379:5 

0379:4 


1 

0 

1 

1 


18 GND 

19 GND 

20 GND 

21 GND 

22 GND 

23 GND 

24 GND 

25 GND 


C64 User port 


C64 

-ATN/D1:3 -V-> 

PA2/D1 :2 —> 

PB7/D0;7 —> 

PB6/D0:6 <— 

-FLAG/D2:4 <— 

PB0-5/D0:0-5 <== 


PC 

SELECT/Dl:4 
PAPER/Dl:5 
-BUSY/Dl:7 

INIT/D2:2 

-STROBE/D2:0 

DATA0-5/D0:0-5 


O 


o 


o 


o 



1 

GND 

A 

GND 





o 

2 

+5V 

B 

-FLAG 

DD0D;4 

i 

0 

o 

3 

-RÉSÉT 

C 

PB0 

DD01 :0 

io 

1 


o 

4 

CNTl 

D 

PBl 

DD01:1 

i o 

1 

0 

5 

SPl 

E 

PB2 

DD01:2 

i o 

1 


6 

ONT 2 

F 

PB 3 

DD01:3 

i o 

1 


o 

7 

SP2 

H 

PB4 

DD01 :4 

io 

1 

o 


8 

-PC2 

J 

PB5 

DD01:5 

1 o 

1 


o 

9 

-ATNOUT DD00:3 oi 0 

K 

PB6 

DD01:6 

i o 

1 

o 

10 

+9VA 

L 

PB7 

DD01 : 7 

i o 

1 

ü 

1 1 

+9VB 

M 

PA2 

DD00:2 

oi 

1 

o 

12 

GND 

N 

GND 






Többféle változatot láttam a két összekapcsolására. Az 
egyik az volt, amikor a PC-be dugott illesztő a CM bővítő portjá¬ 
val van ös.szekapcsolva. Egy program segítségével a PC-n a C64 
memóriájában lehetett közvetlenül dolgozni, sőt távirányítással 
programokat is lehetett futtatni. A módszer azért nem tetszett, 
mert a C64 ettől teljesen, ,bcna” lett, csak a PC-n keresztül lehe¬ 
tett hozzáférni, így pedig egy fiié betöltése is rendkívül körülmé¬ 
nyes tud lenni. Ráadásul a bővítő portban állandóan a Fastload 
kártyát tartom. 

Még csábítóbb lehetőség volt az user port (esetleg a soros 
kábel) összekötése a PC egyik soros kommunikációs portjával, 
az RS—232 szabvány szerint. Sajnos amíg a PC tudomásom sze¬ 
rint a szokásos 12 voltos jel feszültséget használja, addig a C64-es 
5 volttal dolgozik. Az összekötés egy megfelelő (és biztosan drá¬ 
ga) illesztő nélkül értelmetlen és veszélyes is. 

Végül megtudtam, hogy a PC printer portja 5 voltos, tehát 
összeköthető az user porttal. Jön a következő kérdés: hogyan kell 
a lábakat összekötni? A mellékleten részletesen bemutatom 
mindkét port lábkiosztását. Ezen feltüntettem a lábhoz csatlako¬ 
zó port számát, címét is és azon belül a bit sorszámát; a vonal 
irányát (i/o) és a gép alapállapotában a portbit értékét. Negatív 
állású vonal esetén persze a ,,0” bithez tartozik a magas jel.szint. 
A kis rajzok a csatlakozóaljzaton mutatják az első lábak helyét. 


A kiosztások táblázata alatt látható az általam választott 
összekötés! rend, ezen a portcímekben már a példaprogramok¬ 
ban használt jelzéseket is használtam. A legfelső vonalon a jelzés 
arra utal, hogy célszerűnek láttam annak megs/^ikítását egy kap¬ 
csolóval. A C64 ugyanis a —ATN vonalat használja a lemezegy¬ 
ség és a nyomtató meg.szólításakor is, és ha a PC ki van kapcsol¬ 
va, akkor a bedugva tartott csatlakozókábelen ezt a vonalat fogva 
tarthatja. A kapcsolót az átvitel idejére kell csak zárni. 

Azok számára, akik egy másféle összekötést szeretnének 
kipróbálni, hadd soroljam fel a tervezés általam fontosnak tartott 
.szempontjait és néhány kiegészítő adatot a portokról. A gépek 
és esetleg más programok zavartalan működése érdekében a 
portbitek állapota lehetőleg egyezzen meg összekötött és szét¬ 
kapcsolt állapotban. Az IC sérülé.sét okozhatja, ha két kimeneti 
vonalat kötünk össze. A C64 CIA chipjein az irány megvála.szt- 
ható, de az indításkor (rését után) kapott alapállapotot kell figye¬ 
lembe venni. Szintén az irányok miatt nem lehet például a C64 
PB vonalait egyszerre összekötni a PC egy ki- és bemeneti pont¬ 
jával. Kézi kapcsolással megoldható lenne a dolog, de ezt a lehe- 
tő.séget a nehézkessége és a nyilvánvaló veszélyessége miatt elve¬ 
tettem. 

Az user porton sajnos nagyon sok olyan láb van, amely nem 
csatlakozik a gép valamelyik programozható portbyte-jához, ez 

5 januAr 
























Cf 


EGYESÜLET 


o 

o 


o 

o 

o 

o 

o 
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o 
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o 

o 

o 

o 


' *** PC-C64 DATA TRANSFER * 

CONST d0 = S.H378 
CONST dl = &H379 


COLOR 14; PRINT 


PR INT END : COLOR 7: END 


'signal? 

'ready! 

'end of message! 


'disconnect 


' ====== receiving data ====== 

Datin ; 

IF (INP(dl) AND 176) <> 128 THEN RETURN 
GOSUB FlagOut: f = 0 

PRINT "Getting message...": COLOR 10 
DO 

GOSUB Flagin 

IF (INP(dl) AND 144) = 16 THEN e = 1 
IF e = 0 THEN 

GOSUB FlagOut; b7. = 0 

GOSUB Bytein: IF e = 0 THEN PRINT CHRS(bX) 
END IF 

LOOP UNTIL e 

PRINT ; OUT d0, 0; OUT d2, 5; OUT d2. 4 

RETURN 

' === input byte (;b) 

Bytein ; 

FÓR X = 1 TO 8 

GOSUB Flagin; IF e THEN RETURN 
z% = INP(dl); GOSUB FlagOut 
bX = 2 * bX + (zX AND 128) / 128 
NEXT x: bX = NŐT (bX) AND 255 
RETURN 


====== sending data ====== 

DatOut; 

PRINT “Sending message. . . " ; e = 0 
OUT d0, 63; OUT d2, 1; OUT d2, 0 

t = fnt(10) 

DO UNTIL (INP(dl) AND 176) = 0 

IF TIMER > t THEN e = 2; RETURN 
LOOP; f = 0 
FÓR 1 = 1 TO LEN(sí) 

bX = ASC(MID$(sS, i)); GOSUB ByteOut: IF e THEN RETURN 
NEXT i 

OUT d0, 0; OUT d2, 5; OUT d2, 4 ' di sconnect f 

t = fnt(10) 'released? 

DO UNTIL (INP(dl) AND 176) = 48 OR e 
IF TIMER > t THEN e = 4 
LOOP 
RETURN 


'attention! 
'ready? 


message 


>>> 


o o 

CONST d2 = &H37A 

DEF fnt (X) = TIMER + x 

COLOR 14, 0; CLS : PRINT TRANSFER ; 

COLOR 2 

O O 

o 

OUT d0, 0; OUT d2, 4 

DO WHILE INKEYS > “"; LOOP; flag = 1 


o 

o 

DO WHILE flag < 2 

IF flag THEN PRINT ; PRINT "System ready"; flag = 0 

o 

o 

v$ = INKEYS; e = 0; GOSUB Datin 

IF e THEN 


0 

o 

GOSUB Report; flag = 1 

ELSEIF v$ = CHR$(27) THEN 
flag = 2 


o 

o 

ELSEIF v$ > "" THEN 

sS = "HELLO!"; GOSUB DatOut; GOSUB 

Report 

Q 

o 

DO WHILE INKEYS > ; LOOP; flag = 

END IF 

1 

O 


LOOP 



O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


















o 
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O ' === sending byte (b%;) 

8yteOut: 

GQSUB FlagOut; G0SU8 Flagin: IF e THEN RETURN 

OUT d0, (b/i AND 192) / 4; G0SU8 FlagOut; GOSUB Flagin: IF e THEN RETURN 
OUT d0, bZ AND 63; GOSUB FlagOut; GOSUB FI ágin 
^ RETURN O 


O ' ====== Walt answer 

Flagin; 

, f = 32 - f; t = fnt(2) 

^ DO UNTIL (INP(dl) AND 32) = f OR e 

IF TI MER > t THEN e = 3 
O LOOP; RETURN 

' ====== send flag 

Q FlagOut; 

OUT d2, 1; OUT d2. 0; RETURN 

' ====== display system report 6< close 

® Report; 


O 

O 

O 

O 

O 


RESTORE; FÓR i = 0 TO e; READ v$; NEXT i; COLOR 2: 
OUT d0, 0; OUT d2. 4; RETURN 

DATA "message transferred" 

"message récéived“ 

“device nőt present" 

"lost contact" 

"disconnection error" 


PRINT v$ 




nagyon leszűkíti a felhasználható vonalak körét. A —FLAG egy 
„lefutóél-triggcrezett” vonal, ami annyit jelent, hogy a bit akkor 
lesz ,,1” értékű, ha a bemenetén magasról alacsonyra vált a fe¬ 
szültség. Ellenkező irányú változásra a vonal nem reagál, és a 
bit az első kiolvasással törlődik. Az user port összes megjelölt 
vonala közül tudomásom sztrint csak a —ATN-t használja a gép 
önállóan, más célra is. És ez az egyetlen olyan vonal, amely 
visszaáll eredeti (0) értékére, ha a csatlakozást megszűntetjük. 

A mellékletben látható két program, BASIC nyelven, ezeket 
demónak szánom az átviteli módszer tanulmányozá.sához. Egy 
billentyű leütésével üzenetet küldhetünk a másik gépnek, ame¬ 
lyet az kiír a képernyőre, majd mindkét gép várakozó állapotba 
tér vissza. A PC-s program QuickBASIC-ben készült, annak a 
lehető legegyszerűbb eszközeivel, elősegítve a hordozhatóságot. 
Külön felhívom olvasótársaim figyelmét arra, hogy ezt a progra¬ 
mot klasszikus értelemben is strukturáltan írtam meg, egy árva 
GOTO nélkül. Emiatt a programok összehasonlítgatása azoknak 
is érdekes lehet, akik nem tervezik az összeköttetés megépítését. 
Néhol bizony jóval egyszerűbb a C64-es szabadabb, de azért ren¬ 
dezett programja. 

Az átvitel ún. aszinkron típusú. Ez azt jelenti, hogy nem 
egy belső óra időjelzései szerint küldik a gépek a jelzéseket (akár 
kész a másik annak fogadására, akár nem), hanem minden moz¬ 
zanathoz a másik gép nyugtázó, készenléti jelzése szükséges. így 
az átvitel eredményessége teljesen független a két gép műveleti 
sebességétől, és ugyanolyan jól működhet (csak lassabban) 
BASIC, mint gépi kódú programok támogatásával. Az aszinkron 
módszer ugyan lassabb két jóval összehangolt gép szinkron kap¬ 
csolatánál, de annál sokkal biztonságosabb. A programok alap¬ 
ján, azt hiszem, bárki elkészítheti akár a vonali állapotdiagramot 
is, amit én most megspóroltam. 

Hadd emeljek ki két finom húzást. Első pillantásra mind¬ 
egynek látszik, hogy a PC—C64 irányú, kátfázisú átvitel során 
az adatbyte-ot a hat szabad vonalon 4—4,5—3 vagy 6—2 arányú 
részekre bontva továbbítjuk. Sőt, a szabályos 4—4 arány tűnik 
vonzóbbnak . Ha viszont assemblyben is meg akarjuk írni a 


programot, akkor a 6—2 a legjobb. Ekkor ugyanis csak két lépte¬ 
tés kell a részek összeillesztéséhez, ami egy picivel kevesebb 
időbe kerül. A másik apróság az, hogy érdemes az adat kiolvasá¬ 
sát rögtön nyugtázni, és csak utána foglalkozni az adat helyreil- 
Icsztésévcl, feldolgozásával. Eközben ugyanis a másik gép már 
a következő üzmict elküldésével foglalkozhat. 

Pár szót a sebességekről. Először is a kábel elkészítése után 
észrevettem, hogy az ACK és ERROR vonalakat is fel lehetne 
használni, ami a C64—PC irányban kb. kétszeres gyorsulást 
eredményezhetne. A bemutatott módszer .szerint a BASIC- 
QuickBASlC változat kb. 100 Baud effektív sebességre volt ké¬ 
pes, azaz csak az adatbyte-okat véve másodpercenként 100 bit 
átvitele sikerült. A Blitz fordítóval ez 3—400 Baud fölé ért. Az 
eltérés olyan módosítá.sokból származik, mint az átvitel puffere- 
zésc vagy a kiírás kikapcsolása. Assemblyben már meghaladta 
a 3000 Baudot, ami már nagyon szép, telefonon néha profi eszkö¬ 
zökkel sem lehet ennél jobbat elérni. Ha a PC-n is assemblyben 
írnám meg a fogadóprogramot, a sebesség bizonyára 10 000 fölé 
nőhetne. Es mindez szorozható hárommal, haa PC—C64 irányt 
nézzük, mert akkor 8-t-l helyett csak 2+1 ütemre van szükség. 

Mire használható az ilyen kapcsolat? Én például már több¬ 
ször vittem át programokat a másik gépre. írtam már meg szöve¬ 
get a PC egyik profi editorával, amelyet aztán a C64-es egyik 
programjába illesztettem. Sőt, mivel a PC-hez nincs nyomtatóm, 
a QuickBASIC programot is a C64-c.sen keresztül nyomtattam 
ki egy kis Seikoshával. (Arra kell csak ügyelni, hogy a lemez¬ 
egység vagy nyomtató megszólítása a C64-en elrontja a —ATN 
állapotát.) Szabadon tervezhetjük meg az átviteli protokollt, a 
hibajavítással együtt. Saját parancskészlettel olvashatjuk-írhat- 
juk a másik gép memóriáját vagy perifériáit, méghozzá nemcsak 
önálló programként, hanem más programok által felha.sználható 
bővítésként is. Úgy használhatjuk az egyik gépet a másik perité- 
riájaként, hogy közben mindkettő megtarthatja az önállóságát. 
Lehet, hogy a C64 elavult, de kidobni még korai lenne. Jó kísér¬ 
letezést kívánok mindenkinek. 

—i —a 
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V 

Tisztelt Commodore Újság! 


Két programot ajánlok tél maguknak bemutatásra, mert 
gondolom, sok C64 tulajdonosnak okoztak fejtörést azok a prob¬ 
lémák, amelyekre a két programot készítettem. 


1. Karakterező 

Ez a program (mint neve is mutatja) új karakterkészlet létre¬ 
hozására alkalmas. Nagy előnye, hogy BASIC-ben készült. Új 
karakterkészletet a régi alapján tervezhetünk, ezért nem kell az 
egész készletet újraírnunk, csak a régit módosítanunk. A prog¬ 
ram indítása után megkérdezi, hogy új ké.szletet akarunk-e 
(15. sor). Ha újat akarunk, akkor a 10. sorban KC változóban de¬ 
finiált kezdőcím után írja a nagybetűs karakterkészletet, ez lesz 
az új ké.szlctünk. Ha nem akarunk újat, a gép egyből a módosító 
részre ugrik (60—140. sor). A módosítás menete: 1. Megadjuk 
a módosítani kívánt karakter képernyőkódját (a Felhasználói ké¬ 
zikönyv 126—127. oldalán található). 2. Soronként megadjuk a 
karakter adatait, 2-es számrendszerben. Pl. egy Ú betű; 


0 1 2 3 4 5 6 7 



w X .i, .wZ -r ,9 V/ / 

0. sor 

0 

0 

0 

1 

1 

0 

0 

0 

1. sor 

0 

0 

0 

I 

1 

0 

0 

0 

2. sor 

0 

0 

0 

0 

0 

0 

0 

0 

3. sor 

0 

1 

1 

0 

0 

1 

1 

0 

4. .sor 

0 

1 

1 

0 

0 

1 

1 

0 

5. sor 

0 

1 

1 

1 

1 

1 

1 

0 

6. sor 

0 

0 

1 

1 

1 

1 

0 

0 

7. sor 

0 

0 

0 

0 

0 

0 

0 

0 


Ezután a gép megkérdezi, hogy akarunk-c még egyet módo¬ 
sítani. Ha nem, elmenti lemezre az új karaktcrké.szletünkct KC 
kezdőcímtől (520—600. sor). A készlet nevét az 550. .sorban vál¬ 
toztathatjuk. Ezt betöltve a készletünk aktivizálható. 
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O 

ü 

O 

O 

O 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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4 

5 

6 
10 
15 
20 
25 
:30 
40 
50 
60 
7'0 
B0 
90 
100 
110 
120 
1:30 
140 
520 
5:30 
550 
560 
5(’0 
580 
590 
600 

999 

1000 
1001 
1010 
1015 
1020 
10:30 

1 040 
1050 
5000 


RÉM '* r-n" 

RÉM " t ICHR.RtíTEREZO t " 

RÉM " l 199:3. I " 

RÉM "t SI.DL.O CSHBfi t " 

RÉM “ ^- 

RÉM s3i;OL.O CSRB«/:3242 PRRRDSRSVRR / BRRHV J.U.:3:3. 

K.C= 143:36 

PRIMT'TJJJ KRRKTERKES2LETET ? <.I/lt>" 

OET R4= Í.F Rí="" THEM 20 
IP R.'4<>‘'1" THEH 60 

POlíE 56:3:34, PEEt:. C 56:334 > RMD254 ■ PGK.E 1. PEEK C 1 > RMD 251 
FÓR I =0TO 4095 ^ POKE K.C+ I / PEEtt C 53248+ I > = ttE:><T I 
POKE l/PEFlKCi;* OR. 4 = POKE 563:34 / PEEK. <;56:3:34 > ŰR 1 


IMPOT " 2HRHVRS K;RRK.TER" ; K.R 

IF t;;R>255 OR KRCO OR teR :".:. IMT <:k;R> THE:N 60 
PR IMT " rm 12:345678«" 

FOF: £=0 rOf’ 

PR I M i I. " . SOR IMPUTRÍ í. I > ’ 1F LEM C Rí 1 > > 
GOS;OB 1000 : POKE KC+Ö*tí;R+ 1 / SZC I ;■ = MEiKl I 
PR£i.(T‘‘)^u«wfiP*ii*ii»riEO •? ci/m;*" 

GEf Rí^ 1;FRÍ=‘“‘ THEM 1:30 
IF RÍC>"M" THEM 60 
RÉM **:*:♦■** KIIRO-RESZ 
BC=tíC+4095 

ÜPElt 1,8. 1 , “0 ■ K.RRRtí:TER.t;;ESZLE í “ 

HB= IMT <:KC/256 > ■ LB=H:C“HB»256 
PRIMT#1, CHRÍCLB ,'; CHRÍCHB :- 
FDR I=K.C+irOBC 
PR.IMT#! , CHRíCPEEKC 1 > > ; 

MEXTI> CLOSE 1 ■ EMD 

RÉM RTSZRMOLO *-*i¥^i*'* 

FÓR G=0 rOT’ 

= =cí<:o>==“’' ■•Me>;T g 

FÓR O=0 rOf’ 

Bí <: O > =R 1GH7 í <• R.Í <• I ;* / D+1 > 

cí<.ü;'=leftí<:bí<.ü> ^ 1 ;* 

ÍF CÍ<.D> = ''0“THEM 10.50 

sz<:i>=sz(;i>+ 2 to 

ME:><T D = RETURM 

FÓR I. = 14:3:36 TO 14:3:36+4096 = POKE 1,8 • MEXTI 


:>& THEM 100 


o 

o 

o 

o 

o 

o 

o 

ü 

o 

o 

o 

o 

ü 

o 

ü 

o 

o 



REflOV. 
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5000 
500 1 

5002 

5003 

5004 

5005 
5010 
5020 


rém " rCCCCCCCCCCCCCCCCC-i" 

rém "Bmenu>-,'ezer les sub.B" 

rém J'B 19S'3. B“ 

rém "B sidlo C3.».b.s. B“ 

rém " 'CCCCCCCCCCCCCCCCC-'" 

rém sidlo css.bs. / 3242 P».r.3.d3í.si/3.r / j.rs.nV' .:i.u.33, 
.í.=l : sz=0 = f or i = ltol5 : if ■5.í <. i > C>‘'‘'tben3Z=sz+l ■nexfci 
P r Int “ StCitlií-ititCH" = t or i = 1 bősz • p r i nfc t-s.b24> 


5030 i f .9 = 1 then p t' i nt" ina " ; .s.í <, i > , “ a" 

5040 i f .».<> 1 t,hen P r i nb “ H " ; sí <. i'/ , " " 

5050 riext i 


O 

o 

o 

o 

o 


o 


o 


5060 3et-9.í-•• if -9.í=" "then 5060 

5070 i +■ .sí—." W" .9.ndi.= 1 then P oKe631,0 = 3otoS060 
5080 if 9.4 =“«" then .9.--.9.--1 3oto5020 
5090 1 + 9.4'.= ‘'£lt‘'.9.nd9.=3zthen PoKe631 / 0 • 3oto5060 

5100 if •9.4.= "l5V‘then .9.=.9.+1 = 3oto 5020 



O 

O 

O 

O 

O 

O 

O 

O 


5000 RÉM " r- 

5001 R.Et1 " I MENUVEZERLES SUB. ! " 

5002 RÉM "t 1993. t" 

5003 RÉM "t SíÜLŐ CSBBR !" 

5004 RÉM " --- 

5005 RÉM SIÜLG CSRBR,3242 PRRHÜSRSVRR,RRHUV .1.0.33. 

5010 R=1 =SZ=0--FORI = 1TO15-. IFRt.c. I " THEMSZ^SZ-*-1 • HEXT í. 
5020 PRlffr"í««J«««W«J«" =FOR I = 1T0SZ‘PRIHT TRB<.24> 

5030 IFR=ITHEM PRIHT"lia ";R4.<I>;" ■“ 

5040 IFR í:> ITHEH PR 1 H f " I* " ; Rí- <' 1 > ; " 

5050 MEXT I 

5060 GETR4-: IFR4.= " " THEH 5060 

5070 IF R4= " '.T‘RHDR= 1 THEN P0K.E6:31,0- OOTO5060 
5080 IF R4-.= "'.T'THEH R=R-1 = 130105020 
5090 IF R4-.= "»"RNDR=SZTHE;H P0KE631,0 = GOTO5060 
5100 IF R4.= “W"THEH R=R+1:G0T0 .5020 

5110 IF RSC<:R4-> = 13 then FORI = ITOSZ • RÍC I > = " " ■ NEXT í = RETURH 


o 

o 


o 


o 

o 

o 

o 

o 



Kezdőcím Bekapcsolás 

2048 POKE 53272,(PEEK(53272)AND241)OR2 

8192 POKE 53272,(PEEK(53272)AND241)OR8 

10240 POKE 53272,(PEEK(53272)AND241)OR10 

12288 POKE 53272,(PEEK(53272)AND241)OR12 

14336 POKE 53272,(PEEK(53272)AND241)OR14 

Én a 14336-os kezdőcímet ajánlom, mert így BASIC progra¬ 
munkkal együtt a karakterkészletünket is felveszi a gép. (Igaz, 
így is rövidebb lesz a BASIC-tár, de nem kell bajlódnunk a kez¬ 
dőcímének átírásával.) Vigyázat! Ha programunkon változta¬ 
tunk, a karakterkészlet eltolódik, ilyenkor újra kell töltcnünk le¬ 
mezről! Ha felvett készletet akarunk módosítani, a karakterme¬ 
ző után (!) tölt.sük be, és már módosítható is. 


II. Menüvezérlés szubrutin 

Ez a rövid rutin a mcnüvezérlésnek azt a fajtáját valósítja 
meg, amikor egymás alá kiírt menüpontok között tudunka a kur¬ 
zormozgató gombokkal lépkedni. Az aktuális menüpont mindig 
inverz. Kiválasztani a RETURN lenyomásával tudunk. Mielőtt 
a .szubrutinra ugranánk, el kell helyeznünk a menüpontokat 
A$(X) tömbváltozóban. (X = max. 15!) Innentől a rutin magá¬ 
tól működik, egészen az első RETURN-ig. Ekkor törli A$(X) 
tömbváltozót, a kiválasztott menüpont sorszámát eltárolja A 
változóban, és visszatér a főprogramba. A menüpontok elhelye¬ 
zését a képernyőn az 5020. sorban tudjuk változtatni. 

Sidló Csaba 


9 JANUÁR 
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Tisztelt Szerkesztőség! 


Othello: 

A játékszabály: (a programban is ol¬ 
vasható). 

Az Othcllót egy 8 X 8-as táblán ját- 
szák. A sorokat 1—8, az oszlopokat A—H 
közé c.ső számmal, illetve betűvel jelöl¬ 
jük. A játék célja az, hogy minél több el¬ 
lenséges figurát üssünk le. A figurák le¬ 
ütése úgy történik, hogy vízszintesen, 
függőlegesen vagy átlósan közrefogjuk az 
ellenfél figuráit. Ha nem tud lépni, írja be 
az ,,A0” lépést. Ha fel akarja adni, a 
,,Lépjek?” kérdésre egy ,,V” betűt. 

A program stratégiája: 

Egy ciklussal sorban ellenőrzi a pá¬ 
lya mezőit. Léphet-e oda; ha léphet, ak¬ 
kor hányat üt ki a lépéssel. így kiválasztja 
a legjobb lépést. Ha többféle lépéssel is le¬ 
vehet ugyanannyit, akkor az egyforma lé¬ 
pések közt a véletlen (RND függvény) 
dönt. 

30—98 Címképernyő 
100—700 Zene szubrutin 
710—720 Kezdeti adatok beállítása 
730—750 Játékszabály 
920-970; 1070-1110 Játék előtti kér¬ 
dések 

990—1060 Játék előtti adatok beál¬ 
lítása 

1110— A játék kezdete 
1120—1390 A gép stratégiája 
1410—1470 A gép lépése 
1480—1490 Az állás kiírása 
1500—1560 A játékos lépésének be¬ 
kérése 

1570—1970 A játékos lépé.sének vizs- 


1975- 

1990- 

2020 - 

2280 

2300- 

2350- 

2510- 

2550- 

2760- 


-1980 

-2010 

-2270 

-2340 

-2500 

2540 

-2750 

3190 


Az állás kiírá.sa 
Ellenőrzés, vége-e a já¬ 
téknak 

A játék értékelése 
A játék újraindítása 
A gép lépését vizsgáló ru¬ 
tin (léphet-e oda) 

A lépéseket vizsgáló rutin 
(hányat vesz le a lépéssel) 
A lépést a pályára rajzoló 
szubrutin 

A játéktáblát megrajzoló 
szubrutin 

A karatereket átprogra¬ 
mozó rutin 

Szűcs Gábor 
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10 POKE53280,0 
20 GOSUB2760 
30 PRIHT'Tl 
40 PRIHT"I r—I I 
PRIHT"II II 
PRINT"II II 
PRIHT" I I 

PRIHT" -' 


iP0KE53281.2 = P0KE648.1 


O 


I I 


50 

60 

?0 

80 

90 

93 

S'5 

96 

97 

98 
100 
1 1 0 
150 
160 
170 
180 
190 
2001 
210 
220 
230 
240 
250 
260 


I I 
I I 
I I 


I ■- 
I r- 
I I 


I 


n -1 r n 

r-j III L.., 
1_J L-t I.J 


1- 


r-i rí n 

H h-l I I 

.1 L l_] UJ . 


I I I 

.J I I 

1 I I 
I I I 

L..I I... 

PRIHT" »»í*ii*iiiiii»iN*i»iiiiiiai!tmin_E.#* 
PRIHT"W íc::' H .-HGR-I ♦OFI OR-E 
PRIHT" ír r 

PR I HT " r- I 
PRIHT"II 
PRIHT" ^ 

GOSUBl10 = GOTO700 
GETRT =IFRÍ = " "THEHRETURH 
L.1 ==54272 = L2=54279 = L3=54286 
Hl =L 1 -H = H2=L2->-1 ■■ H3=L3+ 1 
Vl=Ll+4 = V2=L2-t-4 = V3=L3+4 
POKE 54296.15 
POKE V1 -H . 9 = POKE V2-I-2.0 
GETRÍ- ■- IFflí = " “THEHRETURH 
POKE V2-r 1.36 = POKE V2'+-2.36 
POKE V3-I-1.18 = POKE V3<-2. 17© 
T=TI 

GETRÍ =IFRÍ=" 

POKE Vl.16 
RERO S=IF 
RERD ;K 1. V1 



G+BO- 


H 


"» n r-l n 

I L..| 

L UJ i-J 


"THEHRETURH 
:POKE V2.32=POKE 
;==0 GOTO 350 
. X2.V2.;==;3. V3 


16 


280 

IF 

XI THEH 

POKE Hi,>=;i 

= POKE 

Ll.Vl-POKE VI.17 

290 

IF 

X2 THEH 

POKE H2,X2= 

= POKE 

L2.V2=P0KE V2.33 

300 

IF 

:X3 THEH 

POKE H3.X3=P0KE 

L3.V3 = P0KE V3.1*7' 


310 

3201 

330 

340 

350 

:360 

370 

380 

390 

40101 

410 

4201 

430 

440 

450 

460 

470 

4801 

490 

500 

510 

520 

30 


GETRÍ =IFRÍ= 

T=T-t-S 

IF T>TI GOTO 330 
GOTO 250 
FOR-T==Ll TO 
RESTORE = GOTO150 


"THEHRETURH 


í6 = P0l<E .:r,0 = HEMT .J 


DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 


íl©. 

20 j 


= GOTOl 

34.75 

34.75 
201. 38.12 
20.43.52 

20. .34 

20.43 


21.154.3.147 
25.177,0.0 
. 28.214.6. 10!-: 
25.177.0.0 

. 147 
01.0 


75,21.154 
180.25.17 


201 

201 

20 

201 

201 


- 38. 126.2;: 
0.0.25.17 
-34.75.21. 
' -.34. f' 5.25. 
.38.126.2£ 


20.43 


J is!'..) . 


10 .‘ 
Z0J • 


7 , 0 . 0 ' 

154 .8.147 
177. 0.0 
.214.6.108 
177.0.0 

147 


34,75.21.154. 

0.0.25.177.0.0 

20. 0 .0.19.63.6.108 
20.34.75.21.154,8.147 
0 

163 


C 

540 

DRTR 

201.34,75,25. 

177.0,1 


550 

DRTR 

20.38.126.21 

,154.7 

0 

5601 

DRTR 

cll 0 7 *4 3 / 3 2 7 1 T 7 

37 7 07 0 

570 

DRTR 

20.45.198.28 

,214.7 


580 

DRTR 

20.43.52.34. 

75.0. £1 

0 

5901 

DRTR 

20,38.116.28 

.214,0 


600 

DRTR 

20 7 3*4 7 i' ír.* 7 22 7 

227, 0.1 

0 

610 

DRTR 

20 7 •.H'lsil 7 7 2*5 7 

177.6, 

620 

DRTR 

20,25,177.22 

7 227 7 0 


630 

DRTR 

20.28,214,21 

.154,7 

0 

6*40 

DRTR 

20.32.94.19. 

63.8.2: 


650 

DRTR 

20 7 3*4 7 f' S 7 2 X 7 

154.8. 

0 

6601 

DRTR 

20.0,0.25.17 

7.6, 10i 

670 

DRTR 

20. :34.75.21. 

154,4, 


680 

DRTR 

20.0.0,0,0.0 

.0 


01 

10 £ 
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690 DFlTfi 0..-12345 

700 F0RJ=L1 TG 54296 ^ POKE J.. O ^ NEXT m::LR 
710 DIMRO.. 9>, r4íS:'J4<8> .. CtCS;:'.. D(:2> , SS(;2> 

720 D1 = 1164 : S8 <: 0 > =5 : S8 C 1 > =6 ^ S8 C 2> =8 

730 F'RIHT’'7»M«ftíR H 4-IGR-I ■»0FI 01 HELLO '1 -J:iG-4”IMJR I " 

735 PRIHT";?:iWi!:i K~-..£D fi .T+l-Knt.*.fiB*L II ? < I/H>? 

740 GETXíl:: IFX$="N"THEH920 
750 IFX#<>"I"THEH740 

760 PR INT "21 JIM ■K*+fiE't'L IW 

770 PRINyiaiíKR# 01 HELLÓI ÉGI 8't'8-fi# I'1'BL^N J+l ♦♦•♦■tK. " 

780 PRINT";is:Fi •►O-iDKfil 1-8, fi* 0**L0"XlKRI fi -•* H K0*“"; 

790 PRINT";í!Eni'r' ***MHfiL ILLEI ;:■£ BEI _t-íEL ..:rEL@LJ.J<. " 

800 PRINT":!!:FI T<t.r--K CLJR.. HOG I MIN'X l iííIBE ELEN#~GE*“, 

810 PRINT":i!FIG .•■-♦I .JikV-Mí: le. Fi F'IG.'-tK LE_1I “*E "13 1"; 

820 PRIHT":is:il @._l H'IIK.. HOG I X.-,***INI E*EN F.»3Gr|..EGE*EH" ; 

830 PRIHT";i!:t:»£lG I ♦ILJ>fiH KH*-EFOGJ 4:; fi* ELLENF'"!.... FI-"; 

840 PRINT";i!:»:5 .■■-4l*I I . HR NEM I 43 L■"■1■4I ^-JFl BE R* "fiO'-", 

850 PR INT "üli...—r>l . Hfi FEL RKR-Jfi I-IDNI fi J*I“T::0I" 

860 PRINfiPFi ■'L.UEK?-' ÉGI "X- BEIJI . " 

900 PRINT"W 1.E** ^ GOSUBl 10 ^ 8=54272 ■ FORI=0TO24 = POKES+I, O = NEXT 

920 F2=0^PRINT":M«lWE;:-.r*. ELLENE.L LÉG lEK? C I/N3?" ; ■ S2=0 

940 GETXÍ 

950 IFX:í-="N"THENPRIHT" NE"^GOTO980 
960 IFXíf <> " I " THEN940 
970 PRINT" IGEN“:S2=2 
980 B=“1H-I=Í 

990 D C B-i-1 > =86 : D C 1 > =32 ^ 0H+1 > =87 

1000 14(1 >=0: I4(2>=-1 • I4(3;' = -l ^ I4(4>=-1 : I4(5>=0 = I4<61' = 1 ' I4<7:;' = 1 ^ I4(8::' = l 
1010 J4 ( 1 > = 1 i J4 (2 > = 1 -J4 (3 > =0 = J4( 4 =-1 = J4 ( 51' =- 1 ^ J4 ( 6 > =- 1 ‘ .14 ( 7 > =0 ‘ J4 ( 8 > = 1 
1020 CáKl> = "fi" ^CÍ(23 = "B" M3Í(31' = "C" =CS:(4> = "D" 4 :h;(5> = "E" ■CÍ(G> = "F" ^ Cí:<7;:' = “G" 

1030 CÍ(8>="H" 

1040 FÓR I =0TO9 = FÓRJ=0TO9 ^ fi ( I.. J > =© = NEXTJ.. I 
1050 Fi ( 4 / 4 > =|.'J ■■ fi ( 55 y =H = fi ( 45 > =B ■ fi ( 5.. 4 3 =B 
1060 C1=2:H1=2 ^ N1=4 ^ Z=0 

1070 PRINT":i!li!!:i fi* X KE*D. MI FlKR-** LENNI +/0 ? 

1080 C=|.'.HH=B 
1090 GETX4; 

1100 I FX:ir= " X " THEN1170 

1110 I FXitO " 0" THEN 1090 

1120 C:=B ^ H=W ^ GOTO 1180 

1170 GOSUB2550'GOSUB2510'GOTO1520 

1180 GOSUB2550 ^ GOTO 1210 

1190 IFF2=0THEN121O 

1200 IHPUTXÍ^ 

1210 B1=-1=I3=0'J3=0‘T1=C:T2=H 

1220 1=1 

1230 F0RJ=1T08 

1240 I Ffl ( I. J >O0THEN1380 

1250 GOSUB2300 

1260 IFF1=0THEN1380 

1270 Ll=-1^G0SUE 2350 

1280 IFS1=0THEN1380 

1290 IF ( I -1 ) * ( I -8> O0THEN1310 

1300 31=81+132 

1310 IF(J-1 :j * (.T -8 > O0THEN1330 

1320 31=31+82 

1330 IFS1<B1THEN1380 

1340 IFS13B1THEN1370 

1360 IFRND ( 1 > :>. 5THEN1380 

1370 B1=S1 0:3=I=J3=J 

1380 NEXTJ 

1390 I=I+1:IFI<9THEN1230 
1400 IFB1 :> 0 T HEN144 0 

1410 F£;IHT"íaWíTíMí!Mi!lBM«>»l*|i**l»li|illi||i||i|l«llB*»|ip||i*FIEM I .OOK L—Hl" 

1420 IFZ=1THEN2020 
1430 Z=l:GOTO1520 

1440 ZL=0 : F£:INT"l=ií'MRliaiiiii*llli|lli*ll«»ii!li»!|(i«íi*lli|i*ti|ii||ilJ"'T-*EM = " ; Cíx; J;3> , , CHRíC I3+4S> 

1450 1 = 13^ J=J3HJ=1 
1460 GOSUB2350 

1470 C1=C1+S1 + 1=H1=H1”S1 HU=N1 + 1 


O 

O 

O 

O 

O 

O 

O 

O 

o 
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o 

o 
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1480 
1485 
1487 
1490 
1 500 
1510 
1520 
1530 
1540 

1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
19310 
1940 
1950 
1960 
1970 
1975 
1977 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
206'0 
2070 
2080 
2090 
2100 
2110 
2120 




‘ME+ri 


PRIHT'')il»»i»»ln»»»»*lii|ii||<t>»l»i»liilli|| r~D ' 

GOSUB2510 

IFH1=0THEN2020 

IFH1=64THEN2020 

T1=H=T2=C 

PR 1 NT 

POKE198.. 0 = 1T198, 1 ^ GETZ1 í:: PR INT,; 


, Hl"lll NE+r 


:♦ L '-TV#? ■■MMHI" . 

1 # ; " - " ’ POKE 198 .. 0 = Wfi IT193 , 


Z 1 =flSC.<;21T > i Z2=RSC C Z2í > 

IFZ1>47RNDZ1<57RNDZ2>64RHDZ2< 
PR I NT " 

i: FZ 1 >57THEN 1600 

I =Z 1 -48 XÍ=CI-IRí|i -(. Z2 > ■ GOTO 1610 

I =Z3-4S : Xí-=CHRT C Z1 > 

IFIC0THEN1530 

IFI>STHEN1530 

IFIO0THEN1720 

PR I NT " 


730RZ1>64RNDZ1- 


:73fiNDZ2>47flNDZ; 
~D BE “J-R!“ 


1 n3ETZ2í:: PRINTZ2 


::57THEN15S0 


Hl. ■"■TTEK" 


IH" - PRINT" 


GETXÍ^ 

IFX.T=' 

IFXT-=' 

IFXÍC: 


-.j;i BE “J-R ! 


V"THEN2020 
N"THEN1530 
■"I"THEN1650 

PR I NT " 

IFZ=1THEN2020 
Z=1=GOTO1190 

P R1N T " »|i»l>»lli|>llí»lli»llliln|i|ii|í|i»»l 

F0R..T= 1T08 

iFC:í< j:;'=left$<;xío i ;'Theni770 

NEXTJ 
GOT0950 

IFfl C IJ > =0THEN 1810 

PRINT"MBMBMi!l«[Rri!lB;^|i»|i||i»»|B»li|i»l|i||i»t>li»»llil HIBR ! 

PR I NT " 

GOTO1530 
GOSUB2300 
IFF1=1THEN1860 
PR I NT " 

PRI NT " _D BE 

GOTO1530 
U=-l 

GOSUB2350 
IFS1>0THEN1920 
PR I NT " 

PRINT''l>ll<*il»i*il«*i»i»ill«»iilli»l«lli|H»>ii|l»K._Ci BE “J-R ! " 

GOTO1530 
Z=0 
PR I NT " 

P RIN T " H Wi lit» W » » » »11» » »UH » » W • » »i 

PRINT'':(!:[i!li<,»ii|i|»i||i|ii»ti»i»i*llill»tiiil»|i*i|«ll»r_LFOGLRLI *L" ; SÍ; "r'1E4ii''l " 

U=1:GOSUB2350 

H1=H1+S1 +1^ C1=C1-S1^ N1=N1 +1 

PRINT"íaiMíMBI«:Bli!!MMK*||i||»||»»llii|ii»ll«lllii* |"T.1 "Cl"lll ME*r 

pp:,XHT"HI)i|n|ii||o»»llH»Íi»l«llH»i|»i»»Wi» I'Tt "Hl "Ilii ME^r " 

GOSUB 2510 
IFC1=0THEN2020 
IFN1=64THEN2020 
GOTOl190 

PR I NT " W W »» *1»lliiii»»»»!«»»Ilii III min 

PP.INT"|illii|i|i|i|i|i#illi#i»iliSi*i||i|i»i|i|i|»ll-l“G Ih-EIED XRN NEKEM 


miiíl HIBR 
■J-R! " 


li 


«r';Hl 


PR INT " |ii*ll»»i»i»i»i||i*i»i|i|i»i»i|i||i|»i|ii|ii»rED IG 
IFHl=C1THEN2090 
IFH1>C1THEN2110 

PRINT"llli»i|i|ii|lii»ini||<»iiii|liiÍtlti|»i»iiii!li|3 ir>iEM ! ! ! 
GOTO2130 

PRIHT"l»ll«li|t|i*i|»i**i»i|i*lli||i|l«lli»i|i»»ir:ii:aNI El LEN ! ! ! 
GOTO2280 

PRIHT''liil»i|itllii|lii|i|iii|ili»ilHiiti|i||i»iiU«SiC7 iri|j.|n_ ! ! ! 
C9=C1 :Cl=i;:l-Hl 


«l” .iCl ^ PRINT"n 
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2130 IFC1>0THEN2150 
2140 i::l=-Cl 
2150 C1 = '::64*C1 :?,-'Hl 
2 160 IFC1 Cl 1THEN2260 
2170 IFC1<25THEN2250 
2180 I FC 1 <39TI-IEH2240 
2190 I FC 1 ■C53THEH2220 
2200 IFC33H1THEH2260 

2210 PRIHT''Síiai!!Mí»aM:SIWmS»IOT ♦■wENIH'LI* >:flG I. " : F'RINT"G~Ftl .'L*L0K" M3OTO2280 

2220 IFC9>H1THEN2250 

2230 OBI Fi MULI "■00X02280 

2240 PRIIHT"Fiii'WÖJM«W«i!Mi!!íi!'M.í!lfl:i:(!WJíIií^^^ G IRKO-JOLNOD KELL" -00X02280 

2250 PRIHX " isilíIiiíWieflíIiWtffíiMiSWJWjíMiflMS l„ O^nO'*''■fiL> " ^ GOXO2280 

2260 I FCSi-CH 1 XHE:N2220 

2270 PRIHX"i«íMi«iíMWMWJ!Wl>l.Mi!>WBWI)^^ t EHEI •“Gl ELE'.N V-oBG I!" 

2280 PRIHX":i?:|i|lii**i|i*i|lil»iFRE'»* •PRCE" ■ GOSUBl 10 : CLR ^ RIJN30 

2290 00X02280 

2300 FÜRI1=-1X01 

2310 F0R-T1=-1X01 

2320 IFFIC IH-11, J-+.J 1 ;■ =X2XHEN2340 

2330 HEXX.J 111 ^ F1 =0 : REXÜRH 

2340 F1=1-REXURN 

2350 S1=0 

2360 F0RK=1X0S 

2370 I5=I4<;K> -J5=.J4<:K> = 16= I 15 ' ..T6=.:r-+’.J5 = 83=0 

2380 IFRt: 16.. .J6 >-c:'>X2XI-IEN2490 

2390 S3=S3-H = I6=I6-+-I5 = .J6=.J6+..T5 

2400 I Ffi< 16, .J6 > =X 1XHEH2430 

2410 IFR <; 16. .JG > =0XHEN2490 

2420 GOXO2390 

2430 81=81-4-83 

2440 IFU-01XHER2490 

2450 I6=I=.J6=.J 

2460 FORK1=0X083 

2470 R C 16. .J6 > =X 1 • 16= 16-+ 15 = JG=..TG-kJ 5 
2480 HEXXKl 
2490 NEXXK 
2500 REXLIRN 

2510 FÓR I = 1XOS = F0R..T= 1XOS 

2520 P0KE646.. 7 = XV=DC R< I.. .J > +1 > ; I FXV=86XHEHXV=77 = P0KE646 / 7 
2522 I FXV=S7XHENXV=78 ^ P0KE646.. 7 
2525 POKED1 -4-80* I -l■^♦.J-20.. XV 
2540 P0KE646. 1 ^ HEXX-J.. I : REXURH 

2550 PRINX'TIS - 0 I H E L L 0- 

2560 PRINX-W R E5 C 0 E F G H 
2570 PRINX" r--T-n---r-T-'T--r-T---i 
2580 PRINX"II 1 I I I I I I II" 

2590 PRINX" R----h--+-4---+--4--l---|-""-H 
2600 PRINX"21 I I I I I I I 12" 

2610 PRINX" h----|----t-—E-+-— 

2620 PRINX"3I I I I I I I I 13" 

2630 PRINX" H---4---I—4—+--4-4-..+-H 
2640 PRINX"41 I I 1 I I 1 I 14" 

2650 PRINX" I—I—-4-4—.f-4~-4~4-4 
2660 PRINX"5I I I I I I I I 15" 

2670 PRINX" ^■--4---4~-^--4-4—^—4--I 
2680 PRINT"61 I I I I I I I 16" 

2690 PRINX" h--4-4--H--.4-.4-~-4-.h--4 

2700 PRINX"7I I I I I I I I 17" 

2710 PRINX" |■-■-■■.■^■--4--4--■-4■--4-.4---■4.--H 
2720 PRINX"8I I I I I I I I 18" 

2730 PRINX" 

2740 PRINX" R B C 0 E F G H 
2750 REXLIRN 

2760 PRINXCHRsí: C 142> ■ PR INX" MsM KERLEK VRR.J ! " 

2770 P0KE52.. 48 : P0KE5649 

2780 P0KE56334.. PEEKC56334 > RI-ID 254 

2790 POKE1. PEEK < 1 ;■ RND251 

2800 FÓR I =0X0511 : POKE 12288-4-1, PEEK< I -4-53248> = NEXX 
2810 POKE 1. PEEKC 1 ::'0R4 
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70 DftTl=l24,16.102,102, 182,102,60,0,36 


2820 
2830 
2840 
2850 
2860 
2870 
2880 
2880 
2900 
2910 
2920 
2930 
2940 
2945 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3185 
3190 

RERDV. 


P0KE56334, F'EEK< 56334> OR J. 
P0KE53272, < F'EEK <53272 >FlHD 
RESTORE 

REFiDfi i IEFIO-12345THEH2S50 


240>+12 


F“ OR I = 12S08TO12808+7 
FÓR :t = 12S40TO12840+7 
DRTfi 6,28,60,102,126 
FÓRI=12872T012872+ 
FÓR I = 12920TO12920+ 
DRTFI 12,8,601,24,24, 
FÓR I = 122S8T012288+ 
FÓR1=1312ST013128+ 
DRTR36,0,60,102,182, 
FÓR1=12416T012496+8 
FÓR I = 13248T013248+7 
FÓRI = 12512T012512+ 7 


FiEhüH ' F'OFÍE I, R = 
RERDR ' F'OKET , R ' 

Hí, 102, 102,0, 12, 

RERDR'FOKÉI ,R' 
RERDR'POKEI,R' 
4,60,0,12,8,60, 
REflDf=l: FOKÉ I , R = 


FÓRI = 13264T013264+7 
FÓR 1 = 131S4T013184+7 
ORTR 54,36,102,102, 
F0RI=12816T012816+7 
FÓRI=12S24T012824+7 
DRTR40,40,40,40_, 40 
FÓR 1 = 13192T013192+7 
FÓR I = 13016T013016+7 
DRTR40,40,239,8,255 
FÓR I = 13200TO13200+7 
FÓR1=13160TO13168+7 


FÓRI=13288T013288+7 
FO RI = 1316 8 TO1316 8 + 7 
DFlTFl40i, 410,232,8,24!8 
FÓR 1 = 13144T013144+7 
FÓRI=13208TO13208+7 
DRTR40,40,47,32,4 
FÓRI=12904TO12904+7 
FÓR 1 = 12912T012912+7 
DRTR195,102,68,24,68,102,195,0, 
PRIHT"n 
RETLIRN 


HEííT 

HEXT 

8, 126,96,120,96,126,0 

NEXT 

NEXT 

1012, 1012, 10'2, E+J, 0 
NEXT 


RERDR = FOKÉI,R'NEXT 

102,60,0,54,36,60,182,182,182,68,8 
P0K:E 1+512, FEEK C I > ' NEXT 


RERDR' 
RERDR' 


POKEI. 

foké: I. 


RERDR' 
RERDR' 
102,185 
RERDR' 
RERDR = 


pok;e I, R 
pok;e I, R 

!, t't'l ,0,0 

POKEI,R 
FOKÉ I , Fi 


DRTR0,0,255,8,239,48,40,40,40,48,47,32,63,8,8,0 


RERDR'POKEI,R 
RERDR'POKEI,R 
0,0,0,0,8,248 
RERDR = P0K;E I , f'l 
RERDR ' POKE I, Fi 
40,40,40,40,40 
RERDR'POKEI,fi 
RERDR'FOKÉI,R 


NEXT 

NEXT 

0,102,102,102,102,60,0 

NEXT 

NEXT 

0,63,32,47,40,40,40 

NEXT 

NEXT 

5,0,255,0,0,0 

NEXT 

NEXT 


401,40, '401,0,0, 21 
RERDR=POKEI,R 
RERDR ' POI-íE I , R 
0,0,0,401,40, 23'9, 0 ,239, 40 , 40 , 48 
RERDR P01::E I, R •• NEXT 
FlERDR ' POKE I,R'NEXT 


NEXT 

NEXT 

8,232,40,40, 
NEXT 


40 



í:32,'40,40,40 


?4,60,102,195,195,102,60,24,8,0 


O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Tisztelt Szerkesztőség! 

Ez a program egy 3x8x21-es sprite elkészítését teszi köny- 
nyebbé. A program elindítása után a képernyőn megjelennek a 
főbb tudnivalók. A betűköz-billentyű megnyomásával a progra¬ 
mot elindíthatjuk. Ekkor megjelenik a képernyőn a 3x8x21-es 
sprite ábrája, amibe elkezdhetjük megtervezni az ábránkat. Itt 
tudjuk használni a Commodore billentyűzetéből az I, J, K, L, 
M billentyűket vagy a joystick 2. portját. 

Ha kész az ábránk, nyomjuk meg az FI billentyűt, és a gép 
kiszámolja a sprite értékét. A programból kilépni az F3 billen¬ 
tyűvel lehet. A program újraindítását az F5 billentyűvel érjük 
el. Az ábra törlését az F7 billentyű végzi. 

Ha a gép kiszámolta a számokat, akkor választhatunk a kép¬ 
ernyőn megjelenő lehetőségek közül. (Választás csak joystickkai 
2. port.) Kérhetjük a grafika megmutatását, számokat, kiléphe¬ 
tünk, majd visszatérhetünk programunk elejére. (A grafikát 
nagyítani, illetve kicsinyíteni egyaránt lehet.) 

Tisztelettel Vígh Mihály 


o 

I 

R.EM 

•ti :>K hk its ítí i+i itt iti it; it; 

0 


‘2. 

RÉM » 

C64I Ki 


o 

•Zf 

RIEM ^ 

VIüH MÍ.HftLV K< 

o 

4 

RÉM Kt 

TÜRKEVE Ki 



5 

RÉM 

SPRITE KESZITÜ Ki 

0 

u 

6 RtM 


10 

PRj;HT"lí2:a‘' -'RÉM i-K KEPERNVÜ T0RL.E8 

Ki 

o 

12 

P0K;E.5328 1,6' E'OK,E;5:32S0,6 ' RÉM * 

0 



k;eret 

E8 NH'VER SZÍN Ki 


o 

18 

PR I NT " W - StTi:.i2i3H'!'Fl8 ' " 

0 


20 

PR.IMT" 

FÖL. ÖIIÍB 


o 

30 

PR.IHT" 

BRL/.JQBB. :4_!ai " 

0 

32 

PRINT" 

LE. öKlK" 


34 

PRINT" 

KÜCKB MEG.JELOLES 1. ÖÍ'tíüO " 

0 1 

o 

35 

PRINT" 

síMVHC-iv .Jü'vsT I ck: " 


:3iS 

PRINT" 

Ili SS- 1 m 6RRFIKR 1 PONT ' Otí . 


0 


tí.ISZMMITrtSP." 

0| 


37 

PR, INT" 

5IFT3a? KILÉPÉS Fi PROCtR.iTMBOL 

M 

c 

38 

PR. INT" 

t'KF.SS PROGRRM U.JRR INDÍTRS 

R" 1 


39 

PRINT" 

TORLES" 


o 

40 

PRINT" 

SBPfiCEB!" 

0 
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EGYESÜLET 


o 



O 

o 

41 GETH4 = IFR4=“ “ THENPR1 NT " TJ" ; G0T044 

42 GOT041 

44 :K=1 111 = DINNCSGG;- ^ 0IMW<;7Ü : PRINT "L"!" 

45 PÜKE>C / 42 = RÉM * tCESÜO PONT HEJE * 

O 


O 

0 

46 RÉM * ICEREV NEGRRJZOLHSR * 

50 FÜR I = 1 OV'OTO 1OGS = POKE'. í. , 1 €>Ü ^ NEXT 


o 

60 FORI==1950TÜ1P75 ' PORÉ 1 / 160 ■ NEXT 

70 FÓR1 = 1110TOlyl0STEP40 = PORÉI ; 168 ^ NEXT 

O 

o 

80 FÜR I = 1135 VO184481EP40 •• PORÉ 1 , 168 = N£:-Tr 

Si0 REIT IRFtNT'ITFiS 8ILLENIVü 

O 


100 

GETFtS; : 1FRÍ=" 1 " THENZ^X ' X=X“40 ' GOTO250 

O 

Q 

120 

ifr4-='‘k:'‘thenz=x = x=x+40 ■ GOTO 250 


130 

IFHSt— " L ■' THENZ=X = X=X+ 1 = GÜTO250 


o 

140 

1 FP.ír = :s " TP1ENZ--X ' X=X- 1 ■ GOTO250 ' 

O 


150 

IFFt4='‘rT"THEN310 


o 

151 

REN JÍEZELÜ BILLENT'v'ÜP: » 

o 

152 

IFfi:F=CHR4: C 133 > 1 HEIHOO 


o 

153 

IFR4=CHR4<136 > THENRÜN44 

o 

154 

IFR:í'-=CHR4 <; 134 > THENPR 1 NT " TI" ^ END 

o 

156 

I FR3.=CPIR4- <: 135 ;■ TEIENRUN 

o 

15? 

REH * IRRNVITR8 JOVSTICR ÍZT 


160 

J ==P£EK:<;56320 > 


o 

l'?0 

IFCJRNÜl >=0THENZ=X = X=>-:~40 = GOTO250 

o 


180 

IF<:JRNÜ2>=0TRENZ=X = X=X+40 ■ GOTO250 


o 

190 

IF<JRNÜ4>=0TRENZ=X ■ X=>(--1 = GOTO250 

o 

200 

IFCJRNO8>=0THENZ=X = X=X+ 1 ^ ÜOTO250 

o 

210 

IF < J RND16 > =0 T HEN310 

o 

220 

GOTO100 



REN C8ILLRG HEJZET ELLENŐRZÉSE :-Ií 


o 

250 

1FX<.111 l'rHENX=Z = GÜTI3100 

o 


260 

IFX>1334THENX=Z = GOTO188 


o 

2?0 

FORÍ = l110TO1310STEP40 ‘ 1FX=1THEHX=Z = GOTOlOO 

o 

2? 5 

NEXT 

o 

280 

F0RI = 1135TO1344STEP40 = IFX=1THENX=Z '• GOTOlOO 


285 

NEXT 

u 

o 

289 

REH # CSILLRG RTHEJEZESE * 

o 

230 

IFPEER C Z > = 1 02THENP0(;:EX / 42 ■ goto 108 


300 

pok:ex . 42 = P 0 P;£Z. 32 ^ goto 100 


o 

310 

P'0tí£>í ,102 = GOTO 100 

o 


;330 

REH «:<( '■¥ :=(( W- -M '■* * ■* =* i* * i'lí * i'H* * * ■■¥■ ■¥ ■-¥ * ■* * 

o 

400 

F:EH SZRHOLRS 

0 ' 

401 

PP=1111= VV= 1335 = L=L-- 1 


405 

FÜRX;>=:=PPTOV'i'STEP40 


o 

410 

FORO=XXTO:7X+24 = £===£-►■ 1 = IFPEEPXO >= lOZTHENNCL> = 1 = GOTO 412 

o 


411 

N-:;l;'=0 


o 

412 

PR 1 NT '■ ÍMüOnA" ; L = NEX.T = L=L-- 1 = NE:>=:TXX 

o 


650 

FÓR 1 = 1 TO504STEP8 = C='==0 = £=£-»■ 1 = 0=1--1 


o 

660 

1FNCQ A = 1 ■VHENC=C-H2S 

o 

670 

1 F'N <: Q-^-1 > = 1 '1 HEHC=C-^64 



630 

1FN =;: Q-i-2 ;■ = lTH£N i:=i;+32 


o 

630 

1 F’N <; lí-í-S > = 1 T'RENC=C->-16 

o 


i'00 

1 FN Q+4 > = 1 THEHC=C->-8 


o 

710 

IFNc.O-t-S > == lTHENC=C+4 

o 


720 

í FNOa-v-S > = 1 TH£NC=C-^2 


o 

'730 

1 F'N <. Q.+ 7 > = 1T RENG =i3-^ 1 

o 


740 

Wí:E>=C = PRINT "PímUMÍP , E = NEXT 

o 

750 

PR 1 N'í " WSt-iPRCEW?." 

o 

760 

GETRÍ = IFfií=“ '‘THEN7S0 


770 

GOTO760 


o 

775 

REH ^ í'Ií ^ * :=(< =^ *;.(« í+í * i* =4= ;<< ;*i =« * =4« * 

0 


780 

PRINT'L'X." 


o 



o 
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EGYESÜLET 



0 

790 

0 

800 

810 

0 

820 

838 


840 

0 

850 


860 

0 

870 


888 


890 

0 

S>00 


908 

0 

909 


910 

0 

928 


930 

0 

940 

950 


960 

0 

978 


980 

0 

990 


PRIHT" 51 - r -" 

PRINT" PLRV1 GPfiPIKR MEGMUTHTHS l " 

PRIHT'* 5t'--- ‘' W' 

PRÍHT'' 3i -^-T--> " 

PPII'fT" 5!i LIST i SZHMOK KIKÉRÉSÉ ! “ 

PR.IWT" a ■---■’ W" 

PR IRT" a V- r - " 

PRINT" aiECHO 1 KILÉPÉS l" 

pRiHT" a'-- - ■■•n" 

PR IHT " a V--r-" 

PRÍHT" atRUH ! VISSZH HZ ELEJERE !" 

PRIHT" a ■---^-JW" 

V~19Ö6 = E'~32 : POKEV , 3& 

RÉM JOVSTIC C21 IRRHYITRS * 

J~PEEK<: 56328 > 

IFcTJRHDl >=8THEHZ~V ■ V=V-48 • GOTÜSS8 
ÍFc: JRH02>='8THEI-IZ=:V ‘ V=:V+48 ' GOI OSS8 
ÍF<;JRHÜ4;‘='-8TH£HZ-V ^ ^ GGI'OSSO 

ÍF<; JRI-IÜS>=8THEHZ=V ‘ V=V+1 ^ GOl ÜSSO 
IF < J RMO16 >-8THEH 1 858 
GÜTOS'IO 

IFV<:iÖ24 FHEHV^Z ■ G0T0S18 
IFV>2023TFlEH'-r‘=Z = GÜTÜS18 


1818 POKEZ.£:E~PEEK<V>■POKEV.38’GÜT0918 
1828 RÉM Hf HVÍL HE-JEHEF: ELLEHORZESE 
1050 EGRI=1185T01108•IFV-ITHENl188 


O 

o 

o 

o 

ü 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


1855 NEXT 

1068 PŰRI--1265T0ia68 ■ IFV-ITHEH1488 
1865 HEXl 

1878 F0RI = 1425TQ1428: IFV==ITHENPRIHT‘':r =END 
1875 HEXT 

1088 FÜRÍ-1585T01588•IFV~ITHEHRUH 
1085 HEXT 
lOSO GOTO 810 

1108 PRÍHT“::i" :REM GRRFIKR 

1118 V=53248■RESTORE 
1128 PŰKE2842 , r3 ■ POKEV+21/4 

1180 F0RL=1T063 - P0KE8:31+L/W<L> OIEXT'-REM * RDRTOK BETÖLTÉSE * 
1148 POK.EV+4, 150 : POKEV+5/150 :REM * GRRFIKR ELHEJEZESE * 

1150 PR I HT " FWa --r-^-^'T-•. " 

1155 PRIHT" at CKI l HRGVI TFIS t CH'J I" 

1160 PR I H l" a •-----•'" 

1165 PRIHT"MöBPRCES" 00=1 
1178 GETRíF = IF R.T-= " " TFiEH 1178 
1180 IFFU~"H"VHEW1218 

1 ISO IFR.T'-= " " THEHPOKEV+4 / 8 : POK.EV+5 / 8 •• G0r07'88 


O 

O 

O 

O 

O 

O 

O 

O 

O 


O 

O 

O 

O 

O 


1195 IF m~ "F: " 1 ■ HEH 1220 
1200 GOTO1170 

1218 P0KE5324S-I-23,4 o:-'0P;E53248+29/ 4 : RÉM k HRGVITRS 
1215 GOTO1170 

1220 P0K£53248-+-23F3 = P0KE5324S-+-29/3:REM KICSIHVITES * 
1225 GOTO1170 
1399 RÉM 

1480 PRIHT'TI" : RÉM i»i SZRMOK tí.IIRRTRSR 
1418 FÓR1=1T063STEP3 

1420 PR I HT / w<; I > / w<; I +1 > / w<; i +2 > ^ hext 
1435 PRIHT"aSPRCE a" 


O 

O 

O 

O 

O 


1440 GETfi-T : IFRílr= 
1445 GOTO1440 

RF-flOY. 


‘THEH780 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


' 108 RÉM fiit» «: te te te te it te te te 


118 RÉM te '■ te 

120 RÉM te ft M'O B ft te 

138 RÉM te te 

131 RÉM te COMMODORE 64 te 

148 RÉM te , .. te 

150 RÉM te KÉSZÍTETTE = GOBRVEL ' te 

160 RÉM te te 


1 l'O , RÉM te te te te te te te te te te te te te te te te te te te te te te te ik ft te 
180 ' . 

190 ROKES3280. . =FŰK:E532tíl / . ^ P0 íí:E646.. 12 
200 PR IMT " TPB < 10 > •' 

210 PRlMTTRBc;i0;‘'Tí:Rrí:RKTEREIí: i<ES2EVESE ! 

220 = 

230 RÉM 

240 RÉM >í< CMRR RT ÍRÓ Hf. 

250 RÉM 
260 = 

270 PÜKE 56334/PEEtíO:56334;' RMÜ 254 
'280 POtVE l/PEEKCi::' RMO 251 

298 POR I-0 TO 1024 : P0RE12288'H / PEEK':;53243+1 > • MEXT 

300 POKE 1/PE£H;<1> OR 4 

310 POKE 56334/PE.EK':;56334> OR 1 

320 ' 

338 POR Q-1 TO 64'3-0 

340 POR I='0 ’fO 3 ' R~PEEK<! i2.2"S3-''c!í<':Q'|'I 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 


350 T'ÜR 0=0 TO 1 

360 POKE 12238-i-8te:<:;Q+12S;'4S/R ' S=S-i-l 
370 MEXT 
380 MEXT 
390 8=0 

400 POR 1“4 TŰ V'' l’•■l=PEEK i 2288"*’’;4teV’H-’í í' 

410 POR .0=0 TO 1 

420 POÍVE r2288-t'8#<;0-M92;' i'S/ R ' 8=3->'l 
430 MEXT 
440 ME:>P{' 

450 MEXT ' . ■ 

460 P0KE53272.. 28 

470 PÜR1-0TÜ7 ' PÜK;E12288-I'8í'1!!16ií3-I' 1.. 255 ' 
ME/<T ' 0=0'0 = 1') : 3 = 0 : 

480 = 

481 PRIMT“:»ÍIW?iMitív'EDEKE2Ü ..ÍRTEKST ÍU..i3T ?" 

482 GETRíp: IPR<F='"‘THEM482 

483 POKe2/0 

434 lE R5í:=‘'í" THEM POKE 2/26 
490 RÉM 

500 RÉM i'H KEZDŰt':.EV'' 

510 RÉM 
520 = 

538 PRÍMT":i" 

540 prí:mttrb<: 20 > " tm" 

550 ■ PRINT TRBC 15;' " SftílíMSKiiíleSiíST" 

560 PRIHT 'I RBC 15 " SWÍií -íHÍ 'Ifll! üíí'" 

570 PR I Ml'l'RB< 15 > " Kl»/ 

580 PRIHTTRBClteO'MCESZITETTE 
590 PRIMTTRBÍ 16;< ''MSfSRBRVEL" 

600 PR '1 M.TTRB 'V 16 " Öl 'D 1 - PT.." 

601 PR I MT'T'RB C 22 V 'RWí!!/ 

610 PR í MTTRB C 14 > " 1 ■- SZRBFt!..'t' “ 

611, PRÍHTTRB<20> "Ki/ 

620 PRIMTTRBc; 14> "2 -■ ..IRTEl!;" 

630 POR 1= 1 TO 38 ' POKE 1024-1-1,64 

640 POlCE 1S 134 +1 / 64 ' MEX'V 

650 FOí;; TO 23'POKE 1024-i-40;'í 1.. 66 


O 


O 


O 

O 

O 

O 

O 

O 

O 

O 

O 

G 

O 

O 


Tisztelt Szerkesztőség! 

Az AMŐBA nevű program a meghir¬ 
detett pályázatra készült. Ezt a fajta amő¬ 
bát háromszor-hármas táblán játszák. Mi 
a kör alakú bábuval vagyunk, a célunk, 
hogy egy sorba vagy oszlopba kirakjuk a 
három bábut. 

A gép lépésének vizsgálatát úgy ol¬ 
dottam meg, hogy a vizsgálat elején elug¬ 
rik egy szubrutinra, ahol megvizsgálja a 
2. tárcímet. (Itt tároltam, hogy milyen já¬ 
tékstílust választottunk.) Ha a cím egyen¬ 
lő nullával, visszaugrik a szubrutin elejé¬ 
re. Ha viszont a cím nem nulla, akkor 
megvizsgálja, hogy egy sorban vagy osz¬ 
lopban van-e neki 2 bábuja. Ha van, akkor 
a harmadikat közéjük teszi és elugrik a 
vizsgálat végére, ahol kirakja a bábut. 

Ha nem talál egy sorban két bábut, 
akkor visszaugrik a vizsgálatok elejére. 
Ott a vizsgálatok elején megnézi, hogy 
van-e nekünk egy sorban két bábunk. Ha 
van, akkor az övét közéjük teszi. Ha 
nincs, akkor egy véletlenszám dönti el, 
hogy hova teszi a maga bábuját. 


O 

O 


A program felületesen 
230—480 karakterek készítése 

481—484 beállítja a játékstílust (2. 

tárcím) 

490—690 kezdőkép 
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o 


660 F-OKE 1.06:3+40* I.. 66 ■ HEX'f 


700—780 a lenyomott billentyű kiér¬ 

tékelése 


O 

O 

o 

o 

o 

o 

o 

o 

o 


6V'0 |■■■Ülí:Ei 024 , :u.2 ' PÜlsE 1063 , 1 lO 
6ÖI3 F'OKE. 1. S'84. 1.09 = P0 í;;E202:3 , 125 
690 ' 

'r00 PEl'i **:-I(*I'>:***í*:****:íí:**** 

7’10 REPl ;* VF!Lft:5ZTflS'::J3S> * 

720 RÉM i^ípfi'ic**********;**:** 

730 • 

740 EETt-lí- = l Fi3:iE--= " “ ■ÍHEti740 
750 IP THEM 8:36 

76id 1;F' RíP“''2‘' T'HEH 1050 
770 GO'T'O 740 
780 ' 

790 RÉM *****:**;**;** 

800 RÉM *: SZFlBFlLV * 

Ö10 RÉM :**:*;*;'!«*****;'!': 

820 ■ 

830 PRIHT'‘7Küí:1-' 

840 PRIHTTRBa.G)" 

850 PR IMTTRB< 15 > " títSZRBBE'V " 

860 t-’R INT f'RB< 1.5> " Wí'^'í' ! 't!-. i“ 


O 

O 

O 

O 

O 

O 

O 


790-1030 

1040-1190 

1200-1280 

1290-1380 

1390-1490 

1500-1630 

1640—1790 

1800-2180 

2190-2290 

3010-4090 

4100-4310 


szabály kiírása 
kirajzolja a képet 
beállítja a változókat 
X rakó szubrutin 
O rakó szubrutin 
a játékos lépésének érvé¬ 
nyességi vizsgálata 
nyerési vizsgálat (a játékos 
megnyerte-c a játszmát?) 
a gép lépésének vizsgálata 
nyerési vizsgálat (a gép 
megnyerte-e a játszmát?) 
játékvégi képek 
a gép lépésének vizsgálata 
a nem védekező játékstí¬ 
lusban 


O 

o 


Fekete Gábor 


870 POR I =0'r'039 • pi::aí;E 1 2 £:'=!->-1 , 45 ■ !-ee7;T 


o 

o 

o 

o 

o 

o 


880 PRIMT“W')Ö" 

890 PRR-tT" . , 

900 PRÍf-lT" !’1 JRTEEO f SÍSSrrOSRI-l MlMÜEMFR. I8MERJ.« 
91.0 PRIMT" -• .. 

920 PRIMT" EZT R PR..i’!R RMOBlHT 3*:3"-R>; í'RBEi-iM 
930 PRIMT" 

940 PRIMT" .JFsTSZRlí.. R .JíTÍEEí: EEH'i'ERE , EGT'MRB 

950 PRIMT" 

960 PRIMT" MELLE i;;iRRtí:..njMlí; :3 EG'VFi.:iRMR I3RBU'V. 

970 PRIMT" 

980 PRIMT" RZ MT'ER RbM. ELŐBB k:IRRI:;:..;i 4 R 3 Bi3Ül.,R\ " 
990 PRIMT" 

1000 PRIMT" .10 BZÜRRKOZfViiT ! 


O 

O 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1010 : 

1020 l'^JtíE 198/0 = MR ÍT198 / 1 
1030 = 

1040 i:::£M ití*****:*;**:'^*:'^ 
1050 RÉM * .JRTEICEEP * 
1060 RÉM **:*=¥!*** 

1070 = 

1080 = 

1090 = 

1100 PRÍMT":U" 


1 1 10 
1120 

PRIMTTRB<;i2:'"Öl 
FÓR 1=1 TO 3 



SH" 



1130 

PRIHTTRB<::i2>” S 

» 

a íM 

a » 

a 


1140 

PRIMT ■mBt; 12;:=" a 

« 

a !!“ 

a « 

a 

S?" 

1150 

PRÍHTTRBC121" a 

«■?. 

a « 

a íS 

a 

ÜS" 

1160 
1170 

PRIHTTflB<:i2>"a 

RRIMTTRB<12>"a 


a ?«! 

a « 

M" 

a 



1180 HEXT 

1181 '■"'■Rí MT’TRB12> " " 

1182 PR 1. MT'VRB C 12 > " r#!S»M'Si»'l,'Ü5í!ti".l! 1 ütSiüttSSSÜ.-" 

1183 PR IMT " ii^ílííWI" TRB f 10 > " I5Í1 " 
1198 = 

1200 RÉM *******:■!!;* 

1210 RÉM * .JfiTEK * 

1220 RÉM Mi****;-!?*** 

12:30 = % 

1240 DIM RÍ3/3> / X‘::3> / V<3> 

1250 FÓR 1 = 1 TG 3 = RERD X< I > / S'C 1 > = HEXT 
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GOTO 1498 
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POIí:E1024-í-40íN.VCV1 >-h-K<'.H1 > .. 77 
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1340 

PO1:;E1024-í'4©NíVí:V1 T+1.78 






1350 

púií:ei824-+'40;<íí:ví:vi >■■(■ i>->- mí;ki ;■ ^ 7S 
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136i3 

PORÉ 1024+40NÍ < V < Y1 > +1 > + X < X1 ;■ 1 .. 7 ? 
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13G1. 

PRIMT'3:T'TRI3':;38;' ")vWyT;3ZL.OP ^ "Xl : PRIMT"!?!" 

IRBC 30 ;> " ílWlítWSOFÍ' " '71 
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1370 

RETORf-i 
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1 / 
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14-20 
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püií:ei024"1'40Nív<:y0;>-!'Xí:x0;' , 85 
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1440 

PIOICE1824+48NíV C V‘0 > -i-XC XO > + 1 .. 'í'S 
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1450 

F'OfCE 1024+48i'lí >' T' VO > -i-1 +■ Xi;X0 > . 74 





o 

1460 

pOKEie24+40N(<;v<:v0> + i >+Xi;xe>-i'i. 75 
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PRlM r‘'W«Ji!DSZL.OP • ''X0''?=»»‘MI!<1 SüR ^ '"v'O 






1476 
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1508 

GETRT' 1Í-R4=‘' " THEN1500 
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1 . írí ]. Ö 

pr3:ht"ííi 





o 

1528 

P“RSC i. Flip—64 




0 


1530 

IF P-Cl OR P>3 TREH F^iRM'l "WUHC8 IL'-'EM 

SOR 

":00101580 



Q 

1540 

X0=T--' OiT;;i:HT'‘fti"RT 




o 


1550 

GET RT = IF'RT- " " ThlEIT 1558 






1560 

P(7..!;HT'’W 


" 



o 

1578 

R-RSCí:RT>-"48 




o 


1580 

IF P-Cl ÜR P>3 TMEF-l PR IMI'3:541 t-lCS lU'NEF-S 

OSZLOP !"'GOTO 1551 



o 

1598 

V8=P 




o 


1600 

IF R<7:0/'('OJ'-OO THEM RRIF-FP'vííI iJüR MmF: l...EP'l Eh. 

i"'GOTO 1500 



o 

1618 

GOSOB 1400 ^ RCXO,VQ > = 1 




o 


1620 

; 





o 

1638 

: 




o 


1640 

T;EM i'SJp'liilíNíi'SiNiiTNii'íiNiNíiífN'i'liNíi'K^'P'ifi'íiií 






1658 

RÉM Ni MVERESI VIZSGRLRT * 





o 

1670 

lí E l''l Ni i'íi Ni íNí # N: i* NiN: i'Ü * Ni i'li N: íN: í'F í«í Ní "K Ní 
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1638 






o 

1690 

FÓR I-l TO 3 




o 


1700 

IF R'::i/i;-==l RNO Rí:2,í>'=I RMD Rí;3,I>-1 

írem 

4010 



o 

1710 

MEIÍT 




o 


1720 

FCU'-' I™i '{'J 3 






1738 

IF- R <; 1. 1 > -1 R?-U3 F’l <; I .. 2 1 Rt-ID R C 1.3;'1 

ÍF-iEM 

4-01 i;.i 



o 

1748 

HEXT 




o 


1750 

IF R'::i.l>"l RHD R<;2.2;'“1 RWD R73.3;'“I 

TREM 

4010 



o 

1760 

IF R 3, 1 > = 1 FIMO R < 2.2 >, =' 1 RI-tD Ft < 1.3 > '= I 

THEH 

4010 


o 


1780 

0=0 ' ('1=0 ' XX=0 ' VV=0 





o 

1790 

: 




G 
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RÉM i'KNii'Ki'lii^íNiNiNíiNiN'NNNii'lí^i'fiw 
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o 

1820 

RÉM i-Üi* i'li Ni i'li Ni * ■■¥ W i'li Ni 4: N< Ni ;■}■ 




o 


1830 

GOTO 4180 





o 

1840 

Q--Q+ 1 




o 


1850 

IF R'::i.0;' = l RHD Rí: 2/0;' = 1 RMD R'i^B.Ql^O 

THEM 

X./';=:.í ' ■■ GOTO 

2150 


o 

1860 

IF Ft1 / "" 1 FtMD R í, j L-í > 1 í 'lb-íí J H ií* f j* -"Lj 

THEM 

>'X=2 ' VY=Q. ' F30TÜ 

2150 

o 


1870 

IF rí;2/Q>=i rhü Rca.e;'-! rmo rí;i.q;'=0 

THEH 

x:x,= 1 ' Y'7=0 ' GOTO 

2150 



1880 

IF Q-C3 THEH 1840 
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o 

1910 









o 

1920 

IF 

flCGH 1> = 1 

FlMD 

R<;Ó, 2> = 1 

FlMÜ' 

3>=0 

THEM 

XX=Q•YY=3'GOTO 

2150 

1930 

IF 

RCQ/1>=1 

tRMD 

RilQ, 3>=0. 

RMÜ 

Fi<Oj 2>=8 

THEM 

XX=Q■YY=2:GOTO 

2150 


1940 

IF 

R<G!/2> = 1 

RMÜ 

RÍGH 3>=0. 

RMÜ 

RGQ/1>=0 

THEM 

XX=Q : S‘Y=Í : GOTO 

2150 

o 

1950 

IF 

Q-C3 THEM 

1910 







1960 

! 









o 

1970 

IF 

R < 1 / 1 --1 

RMÜ 

R<2/2>=1 

RMD 

Fi 3 j 3 ’> =13 

THEM 

3<X=3 ' YY=3 ‘ GOTO 

2150 


1980 

IF 

RCi. 1 ■;< = i 

FlMO 

R'::3 23> = 1 

P^lMD 

Fl(:2.2;'=0 

THEM 

3ÍX=2 : YY=2 = GOTO 

2l5;0 

o 

1990 

2000 

IF 

: 

Pl 2 / 2 / = 1 

RMÜ 

flCSz 3> = 1 

RMD 

R. P 1 , 1 > =0 

THEM 

XX-1:YY=1=GOTO 

215© 


20 1. 0 

.(.F 

Fi‘’.3., 1 > = 1 

FlMD 

RCií.. 2;'=0. 

RMÜ 

RP 1.3 3=0 

THEM 

X3C= 1 ' YY=3 = GOTO 

2150 


2020 

IF 

R<:3/ 1> = 1 

RMD 

R <; 1 23 > = 1 

RNO 

R'::2.. 2>='0 

THEM 

.3ÍX=2 > YY=2 ' GOTO 

2150 


2030 

IF 

R<;2.2> = 1 

RI-ID 

R<; 1,3> = 1 

RMD 

Pl (.3/ 13=0 

TPIEM 

7;x=3 ' VY=l ' GOTO 

2150 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


2040 
2050 
2060 
2I;.Í ('‘'r.) 
2080 
20S0 
23.00 
23.10 
2120 
2130 

21 40 
2150 
2160 
■ 21?0 
' 21S0 

aiS'O 

2200 

2210 

2 . 2.'20 

2230 

22 •^(■0 
2250 
2260 
2270 
2280 
2200 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3030 
3i3S'0 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4030 
4100- 
4101 
4110 
4120 


Fi;}R l^'^l TO 3 
f-OR U=1 TO 3 
If- l-l':;U,I>=0 Tl-IRH 

WEXT = he;<t 


i.ví=-13 


).f^ 0013 Tt-lEH tv;!.JH500 
! 

XX= INT7 RHŰ •; 1 > Mte-I-1 > 
vv=iHT'a<0ü<: 1 >;'((34i> 

IF RCXX. VV;-<>0 Tl-IEN 2l20 
R<XX.VV>==2 
Xl™XX = Yl^=VV 
130SU8 1300 
*. 

RÉM 0VERTES "Xíí 
t;;E 0 i'lí :«-'íí $ :•!< * * W ::« 

i 

FÓR I==l TÜ 3 

IF 0<l/i3'==2 RHD 0(2, l;'=2 F!<:3.1>™2 THEX 2=0.3 

IF 1>=2 RHO f-v:: I.. 2;'==2 RNÜ OCl.. 3>="2 THE0 2=0.3 

fl£>CV 

IF R(;i/i:'~2 RR13 R<.2/2>='2 RRÜ R'i3/3>=2 l'HEH 2==!. 3 

l'r R<. l/3;*"=2. HMD H2‘.2 3 “'2 MMU fi <.■.•.!.■ l,''™^'. ÍREM 2==l3 

íf Z’=' {.3 CHEM 3010 
GOTO 1500 

*. 

PRIMT""'.!" 

PR.XMÍ''‘m'íl?:»»»»S 

PRíMT"íi®ISittW GÉP ÜGYESEBB MRLRD I" 
pp£j..<T'‘?!lilWl«>a!3Ki^ /. , 

PRIMT'‘»»»f«yRTSZUlí; MEG ? ci/m;-" 

GETR$ = IFRít;=" "THEHGOÖO 

IF R:T=’'r‘ TMEM RUM500 

IF Rit.-="M“' THEM EIÍD 

GOTO S07'0 

PRiMT":;r 

PRIPlT‘DMftIi';iíillls!!?i»!!S 

PRIHT''lli»W»!!l4YERT£L. '! •' 

pRítn"'Dmwim'fK!iwsí!(í , . 

PRINT‘'iiill}i»il»5.:a-RT3ZUM(-':. MEG ? < l/M';-" 

GETRÍ^; IFRit-:.rHEH4068 

IF FR;™"!" THEM RUM500 
IF RiP=="M" THEX EMD 
GOTO 4060 

IFPEEK<;2>==26 THEM GOTO 1848 ' 
í“0 
1 = 1+1 

I F'R< 1, I > =2RMDflc;2 / I > =2RMÜFlC 3 / 1 > =0THEMXX=3 ' YY= í ^ GOTO 2158 
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4 1:30 

IFflCl, I>=2F1HÜR<::S 

: / I >=0Ftl'-!DFl<:3/ 

í > =2THEw:k:>í 

;=:í: ws' 

'=I'GOTO 2150 



4140 

IFflC 1 / 1 ;■ --©flUOFl (.2., í ? =201-100<;:3 .. 

í ;'-"2 Trf;rkx 

:--l ■■ VV 

'=i-GOTO 2150 


n 

4150 

Í.F 

I-C3 THe-1 

4110 







4160 

; 









0 

4170 

1=0 








4180 

1 = 

I-Kl 









4190 

IF 

RÍI.1>=2 

RMD 

Rc:i.2>=2 

RMÜ 

Fr; 1 / :3>=0 

TRFM 

XR= I ' VV=3 = !30T0 

2 150 

0 

4200 

i;f 

Rf. I, 1>=2 

FIÚD 

R<: í / 2>=0 

RUO 

R<:iF3>=2 

THER 

RX=I ■VV=2 ^ GOTO 

2150 


4210 

IF 

RCI,1>=0 

fil-tÜ 

t't 1 / ^ 

RRÜ 

Fr"! I /'> =2 

THER 

XX=I:VV=i:GOTG 

2150 

0 

4220 

IF 

I í:3 TREIN 

4180 






42:30 

4240 

1 

IF 

RCl, i ;'=2 

RHÜ 

RCS/2>=2 

Rl'-!!j 

F! <; :3 í 3 > =0 

■fHER 

XX=:3 = '('V=3 ' GOTO 

2150 

0 

42é;0 

IF 

fr; 1.1 >=2 

RRÜ 

R <; 2 / 2 > =0 

fll-lD 

R':;323>=;> 

THER 

XX=2 ■ V'i'=2 : GOTO 

2150 


4260 

IF 

R<1/1>=0 

RMÜ 

R'::2/ 2>=2 

tiMÜ 

h<:3/ ::;>=2 

VRER 

XX= í, ' Y'V = 1 ’ GO'TO 

2150 - 

0 

4270 

4280 

IF 

RCS/1>=2 

RWÜ 

f-i 2 / 2 y =2 

Rt-iü 

Fr: 1. :3;'=0 

FREl-l 

:4X=1 = S‘'t'=:3 ^ GOTO 

2150 

0 

4290 

IF 

RCS/1>=2 

RRÜ 

R < 2 í 2 > =0 

RRO 

R<: 1 / 3>=2 

TFSER 

XX=2:VV=2•GOTO 

2150 


4300 

TF 

Rt;3, i;>-=0 

RRÜ 

R':;2/ 2>=2 

RRD 

fr: 1 / 3;'=2 

IKER 

XX=3 • 'FV=-1 • GOTO 

2150 

0 

4:310 

GOTO 1840 
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Tippek-trükkök nyomtatóhoz 

Starpainter — modullal 

Akinek Centronics-csatolós (interfészes) modulja (pl. „Pi¬ 
nái Cartridge” vagy „Magié Formel”) van, de sem ilyen csato- 
lós rendszere (pl. Floppy-Speeder), sem hardver csatolója nincs, 
a ,,Starpainterrel” ugyanc.sak a User-Portot kénytelen tómenet¬ 
ként használni. Miután az installációs menüben beállította a 
használandó nyomtatót, tárolás után nyomja le a Reset-bil- 
lentyűt. Utána töltse be a Starpaintert így: 

LOAD "START ",8,1 

SYS 16384 

Ezek után a modullal nyomtathat a User Porton keresztül. 

Superquality 

A ,,Superquality” programmal és Printfox nyomtatómeg¬ 
hajtóval egyes Printfox verzióknál problémák adódnak. Két 
POKE azonban csaknem mindig segít. Töltsük be a nyomtató 
meghajtót abszolút címre (8, 1-gycl), és adjuk be a két POKE 
utasítást: 

POKE 25066,234 

POKE 25067,234 

Ezt követően tárolja újra lemezre a nyomtató meghajtót (pl. 
egy gépi kódú monitorral). A legtöbb nyomtatónál többé nem 
merül fel semmilyen probléma. Ha mégis, az — mint korábban 
— a Star LC—10-zel és a különféle hardver-csatolókkal fog elő¬ 
fordulni. 

Giga-Publish CP80-nal 

A Giga-Publish-nak a Melchers ,,CP80’-jához való illeszté¬ 
se céljából a programban a $7112 memóriahely értékét $ 13-ra 
kell változtatni (soremelés 19/216 inch). A nyomtatóillesztő 
programban az értékeket a következőképpen kell beállítani: 27,76 


(grafika be); 27,51 (soremelés n/216); 27,64 (nyomtató rését); 
13 (CR = kocsi vissza). Ezekkel a változtatásokkal a program 
kifogástalanul dolgozik. Figyelembe veendő azonban, hogy a 
laptervező (layout) menüben a jobb margó ne lépje túl a 2/3-os 
határt, mert a nyomtató csak 1280 pont/sor feloldóképességgel 
dolgozik. 

Problémák a Star LC—lOC-vel 

A nagyon kedvelt Star LC—lOC-vel, vagyis az LC—10-nek 
kifejezetten a C64-hez kifejlesztett változatával nagyon problé¬ 
más esetek tudnak kialakulni az illesztésnél. Egyik az, hogy 
egyes szériáknál súlyos hiba van a nyomtató operációs rendsze¬ 
rében, ami miatt egy bizonyos grafikus parancsszekvencia ese¬ 
tén a nyomtatófej a jobboldali ütközőhöz vágódik. Másrészt nem 
realizálható (eltérően az előző NL—10 típustól), hogy a problé¬ 
mákat kiküszöböljék egyszerűen a Commodore-modulnak 
Centronics-verzióra való c.seréjével. 

Ha a leírt jelenség önnél is fellép, vagyis a nyomtatófej a ' 
jobboldali ütközőhöz csapódik, javasoljuk, hogy forduljon a ke¬ 
reskedőhöz. 

FX-85 a 92008/G-vel 

Még mindig nagyon elterjedt nyomtató az Epson FX-85. Ha 
ezt a Wiesemann-féle 92008/G csatolóval kötik a C64-hez, akkor 
sok grafikus programnál a nyomtatófej sok szükségtelen előre- 
és hátramozgást végez. Segít.séget jelenthet itt a grafikus prog¬ 
ram betöltése előtt az alábbi parancssorozat beadása: 

OPEN 1, 4, 1 
PRINT#1 
CLOSE 1 
OPEN L 4, 3 
PRINT#1 
CLOSE 1 

Ezek a parancsok a nyomtató kikapc.solásáig rögzítik a 
nyomtatási módot. Ezzel a fej rángatózása megszűnik, és ennek 
kellemes mellékhatásaként a grafika is hamarabb készül el. 
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Tisztelt Szerkesztőség! 


A C64-esben az interpreter és az, operációs rendszer ROM- 
jai, valamint az I/O RAM által fedve összesen 20 kilobyte olyan 
RAM található, amely a POKE utasítás számára csak részben, 
a PEEK függvény által pedig egyáltalán nem érhető el. Ehhez 
ugyanis ki kellene kapcsolni a ROM-okat, amellyel azonnal le¬ 
hetetlenné tennénk a BASIC program további futását. 

A mellékelt kis programmal a teljes 64 kB elérésére képes 
szubrutinokkal helyettesíthetjük az említett műveleteket, a be¬ 
töltő elején feltűntetett módon. A PEEK, amelyben egész és va¬ 
lós típusú változóba is kérhetjük az eredményt, kb. 8%-kal las¬ 
sabb az eredeti függvénynél, a POKE pedig kb. 15%-kai. A las¬ 
sulást bizonyára a SYS címének kiértékelése okozza, ezt változó¬ 
ban érdemes tárolni. A program a $02A8—02FD területre töltő¬ 
dik. A betöltőben a program lemezre írásához a ’REM < < ’ jel¬ 
zésig kell a sorokat törölni. 

H. Gy. 


o 

; *** PEEK & POKE UNDER 
; (Cl DAVE - 9308 

ROM » 

O 

o 

t 

. NOL 


O 

o 

R6510 

= *01 


o 


INTFLG 

= S0E 



o 

LINNUM 

= *14 ;/15 


o 

VARPNT 

= *47 ;/48 



FAC 

= *61 


o 

o 

FRMNUM 

= *AD8A 



CHKCOM 

= *AEFD 



o 

GETSAD 

= *B08B 


o 


GETPAR 

= *B7EB 



GETADR 

= *B7F7 



o 

INTFLP 

= 1BC49 


o 

o 

1 

♦ = *02A8 


o 

o 


JMP PEEK 


o 


t 









o 

POKE 

= * 

JSR CHKCOM 


o 

o 


JSR GETPAR 

TXA 

SEI 

. C, D 

o 

o 


INC R6510 

LDY #0 

STA (LINNUMl.Y 


o 

o 


DEC R6510 

CLI 


o 

o 

; 

RTS 


o 


O 


o 




o 


• 

— PEEK C.VCXI 



PEEK 

= ♦ 



o 


JSR 

CHKCOM 

o 



JSR 

FRMNUM 




JSR 

GETADR : .C 

o 

o 


JSR 

CHKCOM 



JSR 

GETSAD ; ,V 


o 


SEI 


o 



INC 

R6510 



LDY 

tt0 


o 


LDA 

(LINNUM1,Y 

o 



DEC 

R6510 




CLI 



o 


LDX 

INTFLG 

o 



BNE 

LIPE 


o 

; 


— FLOAT (VI 

o 


STY 

FAC+1 



STA 

FAC+2 


o 


LDX 

«*90 

o 



SEC 



o 


JSR 

INTFLP 



LDA 

FAC+1 ;SIGN+ 

o 



AND 

#*7F 


o 


STA 

FAC+1 

o 


LDY 

#4 


C0PE 

LDA 

FAC, Y 


o 


STA 

(VARPNTl.Y 

o 


DEY 




8PL 

C0PE 


o 

o 

; 

RTS 

— FIX (VXl 

o o 

LIPE 

TAX 




TYA 



o 


STA 

(VARPNT 1,Y 

o 


TXA 




ÍNY 



o 


STA 

(VARPNT 1,Y 

o 


O 


o 


RTS 


. END 


0 RÉM PEEK & POKE UNDER ROM * 

1 RÉM (C) DAVE - 9308 

2 RÉM * V=PEEK(C) ; SYS 680,C,VCy.] 
RÉM * POKE C.O : SYS 683,C,D 
RÉM << OPEN 2,8,2,“PEEK&POKE,P,W" 
READ V,W: A=V+W*256 


O 


O 


O 


O 


3 

4 

5 

6 

7 

8 

9 

10 
1 1 
12 

13 

14 

15 

1.6 

17 

18 

19 

20 


RÉM 4,6, 10, 13 


RÉM << PRINT«2,CHR$(VlCHRSCWl; 

FÓR 1 = 15 TO 20; PR INT l'YT; RE AD Vi, C 
S=0: FÓR J=1 TO LENCVS) STEP 2 
V=(ASC(MIDS(V$,J)1-651*16+ASC(M1D$(VS,J+111- 
POKE A,V; A=A+1; RÉM << PRINT«2,CHRS<V1; 
S=S+V: NEXT J; IF S=C THEN NEXT I: GOTO 13 
PR INT I"|il^SOR HIBÁS" 

RÉM << CLOSE 2 
DATA 168,2 

DATA EMLNACCAPNKOCAOLLHIKHIOGABKAAAJB,1970 
DATA BEMGABFIGACAPNKOCAIKKNCAPHLHCAPN,1952 
DATA K0CAILLAHI0GABKAAALBBEMGA8FIKGA0,1696 
DATA NA8LIEGCIFGDKCJADICAEJLMKFGCCJHP, 1783 
DATA IFGCKAAELJG8AAJBEHIIBAPIGAKKJIJB,1856 
DATA EHIKMlJBEHGA,721 
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EGYESÜLET 


Kedves Olvasóink! 


Egy új kezdeményezésünket szeret¬ 
nénk bemutatni és megmagyarázni. 
Többször is értesültünk olyan problémá¬ 
ról, hogy olvasóink — nyilván inkább a 
kezdők — számára komoly nehézséget 
okoz a BASIC programok szövegében 
levő vezérlőjelek azonosítása és megtalá¬ 
lása a billentyűzeten. Eltekintve attól, 
hogy semmiképp sem árthat ennek a húsz¬ 
huszonöt külöleges, jellegzetes alakú ka¬ 
rakternek a megtanulása, mi mégis ked¬ 
vében próbálunk járni tapasztalatlanabb 
olvasóinknak. A C64-esre elké.szített 
programok egyikét-másikát ezentúl olyan 
alakban fogjuk megjelentetni, amelyben 
— egy program segítségével — a nehezen 
azonosítható karaktereket két-négybetűs 
rövidítésekkel helyettesítettük. Ennek 
persze teltétele, hogy a programot a szer¬ 
ző lemezen vagy kazettán is megküldje. 

A színvezérlőjelek rövidítése a szín¬ 
kód sorrendjében a következő; Blk, Wht, 
Red, Cya, Pur, Grn, Blu, Yel, Org, Mar, 
Pnk, Gryl, Gry2, LGrn, LBIu, Gry3. 

Kurzor- és képvezérlő jelek: Up, 
Dwn, Lft, Rgt, Clr, Horn, Ins, Del, 
RvOn, RvOf. 

Egyéb vezérlőjelek és billentyűk, zá¬ 
rójelben a karakterkóddal: Stp (3, Stop), 
CCP (8), CCE (9), LE (10), Rét (13, Re- 
tum), LCH (14), ESC (27), Spe (32, szó¬ 
köz), NL (141), HCH (142), Pi (222 v. 
255). 

A rövidítések a szövegben szögletes 
zárójelben találhatók. Azokat a karaktere¬ 
ket, amelyek felismerése gondot okozhat, 
de nincs az előbbiekhez hasonló, értelem- 
szerű elnevezése, a beírásukhoz szüksé¬ 
ges billentyűk megjelölésével rövidítjük. 
Ilyen e.setben az ,,s” a Shift, a ,,c” a Ctrl, 
az ,,=” aC-billentyűket jelölik. Például: 
[s—] a Shift-fMínasz billentyűpárost je¬ 
lenti, hasonlóan értelmezhető a [cF] vagy 
a [=8] rövidítés is. 

További könnyebbséget jelenthet a 
programok begépelésében, hogy az azo¬ 
nos karakterekből álló .sorozatokat szintén 
rövidítve közöljük. Ilyenkor a szögletes 
zárójelben először a sorozat elemeinek 
.száma látható, aztán egy kettősponttal el¬ 
választva következik az adott karakter. 
Például az ,,A[5:BJC” helyett a program¬ 
ba ezt kell beírni: ,,ABBBBBC”. 

Egy másik, eddig ismeretlen újdon¬ 
ság, hogy a hosszabb BASIC programokat 
egy önellenőrző kiegészítéssel együtt kö¬ 
zöljük. Erre az késztet bennünket, hogy 
az olvasók, tudomásunk szerint, gyakran 
követnek el sajtóhibákat a program begé¬ 


pelése során, amelyeket aztán tapasztalat 
híján gyakran nem tudnak felfedezni, ki¬ 
javítani. Ilyenkor előbb-utóbb a közölt 
program rejtett hibájára gyanakodnak, 
alaptalanul. 

A hibaellenőrzés általunk támogatott 
módszere úgyanúgy az ellenőrző ös.szeget 
használja, mint ahogy az a gépi kódú 
programok BASIC feltöltős alakjában 
már régóta bevett gyakorlat. Az ellenőrző 
rész mindig az eredeti program végére ke¬ 
rül, egy ,,— ChecLsum —” szövegű REM- 
sorral elválasztva. Ez a rész logikailag tel¬ 
jesen független a valódi programtól, így 
GOTO-val kell indítani. Indítás után ez a 
kis szaka.sz végigolvassa az őt megelőző 
programot, minden sorából képez egy 
számot, és összehasonlítja a DATA sorok¬ 


ban kódolva tárolt ellenőrző számmal. Ha 
minden sort hibátlanul írtunk be, persze 
a rövidítéseket is pontosan behelyettesít¬ 
ve, akkor ez a .szám egyezik és nem ka¬ 
punk hibajelzést, ellenkező esetben a kép¬ 
ernyőn feltűnnek az eltérést mutató sorok 
sorszámai. Ha egy sorban egy betű helyett 
másikat írunk be, akkor 1/32 az esélye an¬ 
nak, hogy az ellenőrzésen ez a hiba átcsú¬ 
szik. A javítás után újabb ellenőrzés kér¬ 
hető. Amikor eljutottunk odáig, hogy nem 
kapunk több hibajelzést, az ellenőrző rész 
minden sora törölhető. 

Azt a programot, amellyel a BASIC 
programok átalakítá.sa, az ellenőrző 
összegek generálása és a program rende¬ 
zett kinyomtatása végezhető, részletesen 
be fogjuk mutatni ,,Még többet ésszel!” 
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című sorozatunkban. Azoknak a türel¬ 
metlen olvasóknak, akik addig is szeret¬ 
nek kipróbálni a program szolgáltatásait, 
netán ilyen átalakított formátumban sze¬ 
retnék programjaikat beküldeni, felhív¬ 
juk a figyelmét, hogy a program a Pötyö¬ 
gőszolgálattól BASIC listázó néven ha¬ 
marosan megrendelhető. 

a szerkesztő 


Itt egy kis példával mutatjuk be a 
program működését. 

Tegyük fel, hogy az 1. listán látha¬ 
tó programot kívánjuk begépelni. Az 
újságban a 2. lista jelenik meg. Jól átte¬ 
kinthető, hogy pl. a 60-as sorban egy 
,,le" után 16 ,,jobbra" következik. Ha a 
111—120 sorokat is bepötyögjük, GOTO 
111 paranccsal ellenőrizhetünk. 


Az ellenőrző sorok beírását is 
könnyíthetjük. Mivel ezeket minden 
programnál hasonlóak, írjuk be a 
111—120 sorokat önmagukban és 
mentsük el. Legközelebb új formátumú 
program beírásakor először töltsük be 
az ellenőrzősorokat, javítsuk át őket az 
új listának megfelelően, majd gépejük 
be az új programot. 


Info a Hollywood póker-hez 


Az úgynevezett vetkőztetéses Póker¬ 
re sok számítógépes programot írtak. A 
HOLLYWOOD PÓKER főleg a minősé¬ 
ge miatt érdemel kitüntetett figyelmet. 

Sok változata van; 

— a négy rész (ami a streap-tease girlök 
személyében és játékstílu.sában tér el) 
megtalálható egy két-lemezoldalas 
programban. Ezt forgalmazzák cart- 
ridge-ként is. 

— de a négy részt feldolgozták önállóan 
(részenként kb. 100 blokk). 

— sőt Isabell, Lorence, Denise és Stepha- 
nie néven csak a streap-tease képanyag 
is megtalálható 4 darab kb. 50 blokkos 
programban. 

A HOLLYWOOD PÓKER népsze¬ 
rűségét mutatja, hogy a legtöbb számító¬ 
gépen futtatható. így 

— C64, C-l-4, C16 és C116 (a két utóbbi¬ 
nál csak akkor, ha 64 kByte memória¬ 
kiegészítés is van). 

— Atari ST 

— Schneider CPC 464, CPC 664, CPC 
6128 

— Amiga 

Póker szabályok 

A pókernek nincsenek egységes sza¬ 
bályai. A HOLLYWOOD POKER az öt¬ 
lapos, húzós pókert vitte gépre. Megta¬ 
nulni eléggé könnyű. Az 52 lapos francia 
kártyával játszák. Ennek négy színe van: 
treff (fekete lóhere), pikk (fekete lándzsa¬ 
hegy), kör (piros szív) és a káró (piros 
rombusz). Minden színben 13 különféle 
lap van. Ezek (erősorrendben): 2, 3,4, 5, 
6,7, 8,9, 10, bubi, dáma, király és az ász. 
A HOLLYWOOD PÓKER-nél két játé¬ 
kos van: a gép (valamelyik streap-tease 
girl) és az ember. A két játékos 100 DM 
induló pénzalappal kezd és ezt a gép 
,, könyveli”. Ezt követően mindkétjátékos 
5—5 lapot kap. A cél: minél magasabb ér¬ 


tékű figurát (kártyakombinációt) alakítani 

ki. 

A figurák (erősorrendben): 

— Egy magányos lap, azaz nines több 
olyan lap, amelyik erősebb figurát al¬ 
kotna. A magányos lapok közül az az 
értékesebb, amelyik a lapok erősor¬ 
rendjében magasabban áll. 

— PAIR (pár). Két azonos lap. Például: 2 
darab hármas, vagy 2 darab király. A 
magasabb lapokat tartalmazó pár ront¬ 
ja az alacsonyabbat. Két egyforma pár 
esetén az a jobb, amelyik mellett a há¬ 
rom maradék lap között magasabb ta¬ 
lálható. 

— TWO PAIRS (Két pár). Két-két egy¬ 
forma lapokból álló párok. Mindig a 
magasabb pár nyer. Ha a magasabb pá¬ 
rok is egyenlők, akkor az ötödik lap 
dönt. 

— THREE OF A KIND (hármas vagy 
drilling). Három egyforma lap. Pél¬ 
dául 3 darab hetes. A magasabb lapo¬ 
kat tartalmazó a jobb. 

— STRAIGHT (ötös sorozat vagy kvint). 
5 darab egymáskövető, de bármilyen 
színű lap. Például; treff hetes. Káró 
nyolcas, kör kilences, pikk tizes és 
káró bubi. Az győz, amelyik maga¬ 
sabb lappal végződik. 

— FLUSH (kulőr). Öt egyszínű lap. Pél¬ 
dául; treff 2, 4, 6, 7, ász. A maga.sabb 
lapot tartalmazó nyer. 

— FULL HOUSE (full hand vagy full). 
PAIR és TREE OF A KIND egyidő- 
ben. A két FULL HOUSE versenyét a 
TREE OF A KIND dönti el. 

— FOUR OF A KIND (póker). Négy 
egyforma lap. Például 4 darab tizes. A 
magasabb lapot tartalmazó a jobb. 

— STRAIGHT FLUSH (royal fiöss). Öt 
egyszínű és egymást követő lap. Pél¬ 
dául: treff 4,5,6,7,8. A magasabb lap¬ 
pal végződő a jobb. 

A játék során a magasabb figura le¬ 
győzi az alacsonyabbat. Azonos figurák¬ 


nál a már ismertetett szabály érvényesül. 
Ha ez sem dönt, akkor a nyereményt fe¬ 
lezik. 

A játék célja: minél magasabb figurát 
hozni össze. 

A kezdésnél kiosztott 5 lap alapján a 
játékosnak közvetkeztetnie kell a nyerési 
esélyeire és ennek alapján betehet a bank¬ 
ba egy 5—25 DM közötti összeget (BET). 
A bank neve: PÓT. Az ellenfélnek ugyan¬ 
ezt az összeget be kell tennie a bankba, de 
emelheti is a tétet (RAISE). Ezt a másik 
szintén beteszi, esetleg emeli. 

Ha az egyik játékos nem akarja a tétet 
emelni (GALL), akkor a téle.slegesnek 
tartott lapokat (amelyek nem illeszkednek 
valamely figurához vagy nem is egészül¬ 
hetnek ki figurává) eldobhatja. Ezek he¬ 
lyett újabbakat kap és ezek esetleg jobb fi¬ 
gurát eredményezhetnek. Például volt egy 
nyolcas PAIR. A másik három lapot cse¬ 
rélte. Kapott egy harmadik nyolcast, ami 
a nyerési esélyeit növelte. 

Most ismét folytatódik a licitálás. Le¬ 
het a korábbi tétet növelni, amit a másik 
betesz és esetleg megnövel stb. Ha az 
egyik játékos már további növelésre nem 
hajlandó (GALL), akkor a lapokat össze¬ 
mérik és a bankot a nyertes kapja 
meg. 

A licitálás közben bármikor és bár¬ 
melyik játékos eldobhatja a lapjait 
(DROP). Például akkor, ha már újabb tét¬ 
emelést nem akar kockáztatni. Ilyenkor, 
természetesen a másik játékos nyer. 

A játék menete 

A programot betölteni és indítani. A 
négy részt együttesen tartalmazó program 
esetében megválaszthatjuk az ellenfelet: 

1. Izabelle 

2. Lorence 

3. Denise 

4. Stephanie 







A program kijelzi, hogy mennyi pénz 
van a bankban (PÓT) és mennyi pénze van 
a játékosnak (YOU), illetve a leánynak 
(ME)? Ezután a gép megkeveri a kártyát 
(I AM SHUFFLING). Mielőtt a lapokat 
kiosztaná 5-5 DM-et mindenkitől levon 
(ANTE). Majd megjelenik a játékos 5 
lapja (YOUR CARDS). 

Ezután — a már ismertett módon — 
a licitálásra kerül sor. Ha nem kívánjuk a 
tétet növelni, akkor GALL és a felesleges 
lapokat kicserélhetjük. A cserélendő la¬ 
pok kiválasztása a joystick jobbra-balra 
mozgatásával történik. A kiválasztott la¬ 
pok a tűz hatására átfordulnak. Ha min¬ 
den felesleges lapot átfordítottunk, akkor 
a joysticket felfelé nyomva és a tűz gombot 
működtetve a csere megtörténik. A sor¬ 
rend fontos: először fel és csak ezután a 
tűz. Megjegyzés: az egyes változatok ve¬ 
zérlése ettől eltérhet itt is és a későbbiek¬ 
ben is. Némi próbálkozással az eltérése¬ 
ket kitapasztalhatjuk. 

A lapcserét követően megtudjuk, 
hogy az ellenfél hány lapot cserélt (I 
TAKE ... CARDS). Ez egy nagyon fontos 
információ (lásd. később!). Mo.st az újabb 
licitálás következik. Megjegyzés: a licitá- 
lá.sok során, ha nem akarjuk a tétet tovább 
növelni, választhatjuk a STAY-t is. 

A második GALL után az ellenfél is 
bemutatja a kártyáit és a gép közli a játé¬ 
kos figurájának a nevét (YOU HAVE ...), 
majd az ellenfélét (I HAVE ...). Végül ki¬ 
jelzi a program, hogy ki nyerte a bankot: 
a játékos-e (YOU WIN POT), vagy az cl- 
lenfél-e (I WIN POT)? 

Ha az ellenfél elvesztette az induló 
100 DM-jét, akkor csak egy ruhadarab¬ 
jának levetésével és zálogbaadásával 
kaphat újabb 100 DM-t. Később már hiá¬ 
ba nyer, a levetett ruhadarabot nem kapja 
vissza. 

A játék kétféleképpen fejeződik be: 
vagy a streap-tease giri vetkőzik le mezte¬ 
lenre, vagy a játékos veszti el a 100 DM-t. 

Mindegyik leánynak 4 ruhadarabja 
van. így a teljes streap-tease feltétele az, 
hogy a játékos 500 DM-t érjen el. 

Mindegyik leánynak más-és-más a 
pókerezési taktikája! Tanácsos tehát en¬ 
nek kiismerésére törekedni, mert enélkül 
az 500 DM összehozása reménytelen vál¬ 
lalkozás. 

A póker művészete 

A jó pókerezéshez két dolog kell. 

— a lehetőségeink jó felmérése és 
—az ellenfél tisztességes módon történő 
félrevezetése, azaz a blöffölés. 

Ezek nélkül jó lapból is csak keveset 
hozhatunk ki, de ezekkel rossz lappal is 
nyerhetünk. 


A lehetőségek jó felméréséhez bizo¬ 
nyos matematikai megfontolások szüksé¬ 
gesek (vagy nagyon nagy gyakorlat). 
Számba kell venni, hogy valamilyen re¬ 
mélt figura a lapcserénél milyen valószí¬ 
nűséggel alakulhat ki. Ha például (színre 
való tekintet nélkül) a kezünkbe 8, 9, 10 
és bubi van, az ötödik lap pedig nincs kap¬ 
csolatban ezekkel, akkor ez STRAIGHT- 
té alakulhat, de most semmit sem ér, mert 
az egyik vége hiányos. Mi a való.színűsé- 
ge, hogy az ötödik lap cseréjével ez kiegé¬ 
szül? így gondolkozhatunk: 

— nekem 8 lap bármelyike jó lenne (akár¬ 
melyik hetes vagy dáma) 

— a kezembe levő 5 lapon kívül 47 lap 
van: 42 a talonban, amiből a felesleges 
ötödik lapom helyett újat kaphatok, 5 
pedig az ellenfelemnél 


SZOFTVER 

— a ,,kinn levő” lapok 8/47-ed része, 
azaz 17,02%-a jó nekem 

— de új lapot csak a talonból kaphatok. 
Feltételezhetem tehát, hogy a 42 talon¬ 
lapból .szintén 17,02% olyan ami jó a 
számomra. 

— tehát 17,02% annak a valószínűsége, 
hogy egy lapot cserélve STRAGHT- 
em lesz. Ez eléggé biztató, tehát érde¬ 
mes kockáztatni. 

Gyakorlati szempontból ez a gondol¬ 
kodási folyamat leegyszerűsíthető! Ha X- 
el jelölöm a számomra jó lapok .számát, 
akkor 

2,12765 X X 

azonnal megadja a valószínűség %-át. Az 
előbbi esetben 8 x2,12765 = 17,02%. Vi¬ 
gyázat: ez a képlet csak arra az esetre vo¬ 
natkozik, amikor egyetlen lapot cse¬ 
rélünk! 


Egyetlen lap cseréjét feltételezve megadható egy táblázat is: 


Kézben 

Várakozás 

Jó lap 

Valószínűség (%) 

Pair 

Two pairs 

6 

12,77 

Two pairs 

Full house 

4 

8,51 

Three of a kind 

Four of a kind 

1 

2,13 

Straight középen hiány 

Straight 

4 

8,51 

Straight végein hiány 

Straight 

8 

12,02 

Straight 1 végén hiány 

Straight 

4 

8,51 

Flush 1 hiány 

Flush 

9 

19,15 

4 magányos lap 

Pair 

12 

25,53 

Str. flush közepén hiány 

Str. flush 

1 

2,13 

Str.llush végein hiány 

Str. flush 

2 

4,26 

Str. flush 1 végén hiány 

Str. flush 

1 

2,13 


2 vagy 3 lap cseréjét tételezve fel a számítások bonyolultabbak. Két lapot cserélve: 


Kézben 

Várakozás 

Valószínűség (%) 

Pair 

Two pairs 

17,2 

Pair 

Three of a kind 

7,8 

Pair 

Full house 

0,8 

Pair 

Four of a kind 

0,1 

Pair 

Bármilyen javulás 

26,0 

Three of a kind 

Full house 

6,1 

Three of a kind 

Four of a kind 

4,3 

Three of a kind 

Bármilyen javulás 

10,4 

Flush (hiányos) 

Flush 

4,2 

Három lapot cserélve: 

Pair 

Two pairs 

16,0 

Pair 

Three of a kind 

11,4 

Pair 

Full house 

1,0 

Pair 

Four of a kind 

0,3 

Pair 

Bármilyen javulás 

28,7 

Flush (hiányos) 

Flush 

1,0 
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Azt sem árt tudni, hogy az első leosz¬ 
tásnál az egyes figurákra milyen valószí¬ 
nűséggel számíthatunk (%): 


Magányos lapok 
Pair 

Two pairs 
Three of a kind 
Straight 
Flush 
Puli house 
Four of a kind 
Straight flush 


50,12 

42,26 

4,75 

2,11 

0,39 

0,20 

0,14 

0,02 

csaknem 0,08 


A meggondolásoknak viszont nem 
csupán a saját lapokra, hanem az ellenfél 
lapjaira is ki kell terjedniök. Erre egyetlen 
támpont van: hány lapot cserél? Ha egyet 
sem, akkor esetleg mind az öt lapja rende¬ 
zett (full house, flush, straight, straight 


flush). Két lap cseréje talán three of a 
kind-ra utal, ami viszont feljavulhat. Egy 
lap cseréje esetleges two Pairts-vagy héza¬ 
gos, ötlapos figurát sejtet. Ha az ellenfél 
öt lapot kért, akkor minden lehet, mert 
semmi sem volt a kezében, de kérdés, 
hogy mi lett? 

Itt jön be viszont a blöftölés, ami nél¬ 
kül a póker nem póker. 

A blöffölésről könyveket lehetne írni 
és valószínűleg írtak is. Itt csupán a lénye¬ 
get lehet röviden összefoglalni: 

— Ha már az osztás után jó lapunk van, 
akkor egy ideig ezt célszerű titkolni az 
óvatos lieittel. Akkor kell a tétet jobban 
emelni, amikor már úgy tűnik az ellen¬ 
felünknek, hogy a lapunk nem valami 
ragyogó. Ilyenkor már az ellenfél fut a 
pénze után. 

— Rossz lappal jó lapokat kell színlelni. 


A licitnél mindig emelni. így talán az 
ellenfél a mienkénél jobb lapját is 
eldobja. 

— A lapcsere is jó lehetőséget kínál a 
blöffölésre. Például egy király vagy 
ász párnál nem 3 lapot cserélünk, ha¬ 
nem csak kettőt vagy egyenesen egyet. 
Ezzel azt a látszatot kelthetjük, hogy a 
PAIR-nél lényegesen magasabb figurát 
kaptunk az osztásnál és azt még javíta¬ 
ni akarjuk. 

— A Pókert ,,élesben” nem ketten, ha¬ 
nem többen játszák. Ezeket a körülmé¬ 
nyeket a gép csak szimulálni tudja. 

Végezetül egy jótanács: ha a 
HOLLYWOOD POKER-ben eredménye¬ 
sen játszunk a gép ellen, ez még nem ad 
alapot arra, hogy valódi pókerjátszmában 
is ,,villogtassuk” tudásunkat! 

Marcsányi Zoltán 


IBM PC 


Softwareújdonságok 


Kezdő IBM PC tulajdonosoknak bizonyá¬ 
ra nagy problémát jelent a ,,bonyolult” 
DOS utasítások ,,betanulása”, s ezek al¬ 
kalmazása. 

A filekezelő parancsok használata 
során előfordulhat, hogy az újdonsült PC 
felhasználók egy filekezelő parancs ki¬ 
adása során megsemmisíthetik a drágán 
megszerzett programjaikat. Sokak talán 
ezért is félnek egy kicsit más gépről IBM- 
re áttérni. 

A fájlok kezelésével (betöltés, má¬ 
solás, átnevezés) kapcsolatos utasításo¬ 
kat egyszerűsíti meg számunkra Peter 
Norton programja, a NORTON COM- 
MANDER. Ez idáig mindenki meg volt 
elégedve a régi 3.0-ás verzióval, de ez a ta¬ 
pasztalatunk 1993. május 10-én megválto¬ 
zott, ugyanis elkészült a 4.0-ás Norton 
Commander, ami jócskán felülmúlta régi 
,,testvérét”. A kinézete szebb lett, mivel 
kétféle színösszeállításból választhatunk, 
de akinek monochrome monitora, vagy 
laptop gépe van, akkor ő az igények sze¬ 
rint is beállíthatja a képernyő színeit. De 
nemcsak kinézete, de tartalma is bőven 
változott. 

A program figyelemreméltó előnyei a 
következők: 

A legfontosabb talán az újabb s egy¬ 
szerűbb fájlkezelés megemlítése, aminek 
segítségével egy becsomagolt (ARJ, ZIP 
stb.) fájlból kimá.solhatunk, átnevezhe¬ 


tünk, vagy akár ki is törölhetünk fájlokat, 
mintha az adott fájl be sem lenne cso¬ 
magolva. 

Az F3 billentyű .segítségével egy szö- 
vegfile, egy grafikát tartalmazó táji, egy 
adatbázis vagy például egy Windows ikon 
(TXT, DOC, PCX, GIF, PIC, TIF, DBF, 
ICO) vagy egy becsomagolt fájl tartalma 
egy gombnyomásra lekérdezhető. 

Új színeket használhatunk. 

Lehetőségünk van bizonyos esetek 
(például a törlés) letiltására, s ezáltal 
programjaink túlélik az esetleges véletlen 
törlést. 

Beállíthatjuk azt is, hogy a fent emlí¬ 
tett dolgokra a gép visszakérdezzen, tehát 
hogy: ,,Bizto.san törölni akarod a ... 
fájlot?”. 

Ugyanígy például kikapcsolhatjuk a 
fájlok felülírá.sát, s így még ha akarnánk 
is, akkor sem tudjuk felülírni a már létező 
fájlt. 

Mint a régi változatban, itt is készít¬ 
hetünk egy táblázatot olyan programok¬ 
ról, amiket sokszor használunk, s ezek 
már egy gombnyomásra futtathatók. 

Most is beállíthatjuk, hogy egy ,,spe¬ 
ciális kiterjesztésű fájlnál” mit csináljon 
a gép (például egy MÓD fájlban tárolt ze¬ 
nét, — ha rámegyünk, és megnyomjuk az 
ENTER-t —, akkor azt lejátsza). 

Ha netalán valahol elakadunk (bár 
ezt erőssen kétlem), nyugodtan segít¬ 


séget kérhetünk az FI billentyű segítsé¬ 
gével. 

Az újdonságokból mára ennyi, s 
most lássuk a program használatát: 

A könyvtárban az alkönyvtárak közül 
a kurzormozgató gombok segítségével 
közlekedhetünk, s az ENTER-rel választ¬ 
hatjuk ki azt. Ilyenkor meglátjuk, hogy az 
adott alkönyvtárban van-e újabb alkönyv¬ 
tár vagy fájl, s azokat ugyanígy választhat¬ 
juk ki. A fájlkezelő DOS parancsok egy 
részét a funkcióbillentyűk használatával 
használhatjuk. Ezekkel részletesebben a 
későbbiekben foglalkozunk majd. Most 
azért röviden leírom a működésüket: 

FI: Súgó, bármilyen szituáeióban se¬ 
gítséget ad. 

F2: Ha akarjuk (lásd a következő 
részben), elkészíthetünk egy legördülő 
menüt, ami a legfontosabb programjaink 
címét tartalmazza (természetesen készít¬ 
hetünk almenüt is: például játékok, játé¬ 
kok/logikai játékok, játékok/logikai játé- 
kok/Mahjong 4.), s ezek egy gombnyo¬ 
másra betölthetők. 

F3: Az egyes fájlok (szöveg, grafikai, 
táblázat stb.) tartalma nézhető meg vele. 

F4: Az előbb említett fájlok tartalmát 
módosíthatjuk. 

F5: Az INST vagy az egér jobb oldali 
gombjával kijelölt tájiok másolhatók vele. 

F6: Ugyanezek a fájlok átnevezhe- 
tők, vagy áthelyezhetők. 

F7: Könyvtárakat hozhatunk vele 
létre. 

F8: Fájlokat és könyvtárakat törölhe¬ 
tünk vele. 

F9: A későbbiekben fogunk róla be¬ 
szélni. 

FIO: Kilépés a Norton Commander- 
ből. 
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Hobbi ELEKTRONIKA 

C-64 bővítések 


HANGKAPCSOLÓ C64-GYEL 


A C64 újabb érdekes felhasználá¬ 
sára mutat példát ez a cikk, melynek ötle¬ 
te a ,,A Commodore 64-es csatlakozta¬ 
tási lehetőségei” című könyvből szárma¬ 
zik. 

Emellett fontos és hasznos kiegészí¬ 
tője a korábban megjelent ,,A beszélő 
C64” című cikknek is. A két téma szoros 
kapcsolata adta az ötletet, hogy bizonyos 
konstrukciós megszorítás mellett ez a két 
áramkör egy panelre került. 

A C-újság 93/7—8. számában részle¬ 
tesen kitértem arra, hogy ez miért történt. 
Az ismétlést elkerülendő, most csak 
annyit erről, hogy mindkét áramkör a 
joystick portra csatlakozik. A hangkap¬ 
csoló az 1. portra, a digitalizáló pedig a 
2.-ra. így az egyszerre téldugható két 
9 pólusú Canon csatlakozó stabilan tartja 
a lábai közé beforrasztott panelt, nem kell 
külön konstrukciós problémával foglal¬ 
kozni. 

A két független áramkör ezért került 
egymással rokonságba, egy műanyag 
cartridgedobozba zárva. Természetesen 
mindkettőnek külön dokumentációja, ül¬ 
tetési, kapcsolási rajza és árajánlata van. 
Lásd a cikk utáni hirdetést. 


A hangkapcsoló felha.sználása igen 
sokrétű lehet, könnyen alkalmazható 
egyedi igényekre is. A működésnek az a 
lényege, hogy valamilyen jelforrást kö¬ 
tünk a bemenetére és a számítógép figyeli 
a kimenetet. A bemenőjel lehet egy jel¬ 
generátor, mikrofon, egy passzív infra ér¬ 
zékelő .stb. Ha a bemenetre valamilyenjei 
kerül, billen az áramkör. Ezt a számítógép 
érzékeli, feldolgozza és a szoftver szerint 
valamilyen parancsot adhat. 

Ezt az alaphelyzetet finomítani lehet 
úgy, hogy az áramkör csak egy bizonyos 
frekvenciára, kódra legyen érzékeny: pél¬ 
dául tapsra, üvegcsörömpölésre stb. Ter¬ 
mészetesen ilyenkor ennek megfelelően 
változik az érzékelőköre, hiszen szelek¬ 
tívvé kell tenni az áramkört. 

Ezzel a lehetőséggel most nem foglal¬ 
kozunk, csak az alapesetet vizsgáljuk 
részletesen. 


^ áramkör működése 

Az 1. ábrán látható kapcsolásban a 
bemenőjel az Rll, Cll tagon átjut az All 
műveleti erősítőre. Ez az alacsony szintű 


jelet felerősíti. Az erősítés mértékét az 
R15/R11 hányados határozza meg. Az erő¬ 
sítő tápfeszültsége -1-5 V aszimmetrikus, 
ezért a munkaponti beállítást az R12, R13 
és R14 végzi. Az R12 és R13 közös pontján 
közel fél tápfeszültség mérhető. Nyugalmi 
helyzetben ez jelenik meg az All kimene¬ 
tén. Ez meghatározza a ki vezérlési tarto¬ 
mányt is, bár a túlvezérlésnek itt nincs je¬ 
lentősége. 

A jel az erősítőről egy feszültség¬ 
kétszerező egyenirányítóra kerül. En¬ 
nek C12, D12 tagja tulajdonképpen szint¬ 
eltolóként működik. Az utána kapcsolt 
Dll az eltolt szintű jelet egyenirányítja, 
C13-at íéltölti. Ha a C13 feszültsége eléri, 
vagy meghaladja az R13, R14 közös pont¬ 
ján mérhető feszültséget, az A1 kompará- 
tor átbillen és mindaddig úgy marad, 
amíg a C13 feszültsége a komparálási szint 
alá csökken. Ebben segít az R16-os el¬ 
lenállás, ami kisüti C13-at. Az A13 in- 
vertáló fokozat. Azért van rá szükség, 
hogy a Tll alaphelyzetben zárva legyen, 
a komparátor billenése után pedig ki¬ 
nyisson. A tranzisztor kollektora az 
R16-on át az 1. joystick port 2. lábára csat¬ 
lakozik. A gép ennek a változását figyeli. 



1. ábra 
A 

hangkapcsoló 

kapcsolási 

rajza 
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A hangkapcsoló szerelése, 
élesztése 

A szerelést a nyomtatott áramkör el¬ 
készítésével kezdje. Ennek a rajza a 
93/7—8. sz. újságban jelent meg. A panel 
ez alapján pozitív 20-as technológiával el¬ 
készíthető. Ha ez gondot jelent, jöjjön el 
az üzletembe, ahol a mintadarab megte¬ 
kintésével egybekötve megvásárolhatja az 
áramkör készre szerelt változatát, egy.ség- 
csomagját, vagy részegységeit, ahogy 
Önnek kedvezőbb. Cím a cikk utáni hirde¬ 
tésben megtalálható. 

Már említettem, hogy ez az áramkör 
a hangdigitalizálóval közös panelen kapott 
helyet. Ezért, hogy az alkatrészeket pozí¬ 
ciószámuk alapján ne lehessen összeke¬ 
verni, ennél az áramkörnél a számozás 
tízzel kezdődik. Ha valaki már megépítet¬ 
te a hangdigitalizálót és most ezzel bővíte¬ 
ni szeretné, nem sok teendője van. Az 
üzletemben vásárolt egységcsomagból a 
2. ábra alapján ültesse be az alkatré¬ 
szeket. Valamilyen kéziműszerrel mérje 
meg a műveleti erősítők munkapontjait. 
Ellenőrizze, hogy a féltápfesz a szövegben 
jelzett pontokon megvan-e. Kössön va¬ 
lamilyen jelforrást a bemenetre és el¬ 
lenőrizze az A13 kimenetének szint¬ 
jét. A bemenőjel szintjétől függően itt 
5 V-ot, vagy 0 V-ot mérhet. Ha ez teljesül, 
működőképes az áramkör. Olvassa be le¬ 
mezről vagy kazettáról a szoftvert, amit az 
egységcsomagban talált. Ez a kísérlete¬ 
zéshez tökéletesen megfelel és ötletszin¬ 
ten más, célorientált feladatra felhasz¬ 
nálható. 

Ha kondenzátormikrofont ha.sznál, 
a bemenetre előfe.szítő ellenállást kell 
kötni. Ennek nincs helye a panelen. A 
kapcsolási rajzon Rxx jelöli a bemenet 
és a + 5 V-os tápfesz között. Értéke 
15 KÍ2. 


Ugyanez a megoldás használható a 
hangdigitalizálónál is. Érdekes felhaszná¬ 
lási lehetőséget nyújt a digitalizáló és a 
hangkapcsoló együttes kombinációja az 
őrzésvédelemben. A hangkapcsoló által 
érzékelt zajra vagy más érzékelő jelére a 
C64 valamilyen digitalizált szöveggel vá¬ 
laszolhat. 

Ha Ön nem ismeri a Hangdigitalizáló 
cikket, lapozza fel a C-újság 93/7—8. szá¬ 
mát, ott részletes szerelési útmutatót talál, 
ami mindkét áramkörre érvényes. 


A hangkapcsoló árajánlata 

A Hangkapcsoló működő mintada¬ 
rabja megtekinthető, kipróbálható, rész¬ 
egységként, cgy.ségc.somagként vagy 
ké.szrc szerelve megvásárolható a szerző 
üzletében. 

Ara egységcsomagban 750,— Ft, a 
hangdigitalizálóval együtt 1350,— Ft. 

Készre szerelve 990,— Ft, a hangdi¬ 
gitalizálóval együtt 1900,— Ft. 

Külön vásárolható elemek: panel 
200,— Ft, doboz 150,- Ft. 


Folyamatosan kapható egységcso¬ 
mag, panel és részegység, a C-újságban 
korábban megjelent cikkeimhez is. Ezek 
egy része működés közben megtekinthe¬ 
tő, kipróbálható. 

A vidéki olvasóknak segít a .szerző 
levelező-egységcsomagküldő szolgáltatá¬ 
sa. A megrendelt csomagot postán, után¬ 
véttel elküldöm. Telefonon és levélben is 
rendelhet. A HOBBI ELEKTRONIKÁ¬ 
HOZ nem kel I hosszú levél. rendelését rö¬ 
viden, egyértelműen közölje. 


Azt üzletben beszerezhetők a C-újság 
korábbi számai is. 

Vá.sárláskor használja a HOBBI 
ELEKTRONIKA kuponját. 

Levélcím: HOBBI ELEKTRONIKA 
1656 BUDAPEST Pf. 50. 

Üzleteim: BUDAPEST VII. 

Dózsa György út 16. 

Jobbágy u. sarok. 

Nyitva: H—P. 10—17-ig, 
zárás után üzenetrögzítő. 

Tel./Fax: 122-8892 



i 2. ábra 
A hang¬ 
kapcsoló 
I ültetési 
I rajza 


Egész szám (integer) kiírása 

Gépi kódban gyakran felmerül az a probléma, hogy egész 
számot kell decimális alakban kiírni, pl. egy játék pontszámát 
kiírni a képernyőre. Erre az esetre rendelkezésünkre áll egy 
ROM-rutin ami normál esetben a program sorszámát írja ki. En¬ 
nek a rutinnak az alkalmazása roppant egyszerű. Az X-rekeszbe 
betöltjük a .szám alsó bájtját, az akkumulátorba pedig a felső 
bájtját és eztán ugrunk a $BDCD címre. A szám ekkor sztringgé 
változik és az aktuális kurzorpozícióba kiíródik. 

Gépi kódú WAIT 

Ha egy programban egy meghatározott billentyű megnyo¬ 
mására kell várakozni, jól alkalmazható a következő ROM-rutin: 



SYS 58592 illetve JSR $E4E0. Ez a rutin helyettesíti a GET-le- 
kérdezést (illetve a WAIT-ot). Hatására a program mindaddig vá¬ 
rakozik, amíg a CTRL- vagy a C=-gombot meg nem nyomják. 
Ez a SYS-hívás mind Basic- mind gépi kódú programban alkal¬ 
mazható. 

Mégegyszer a MID$-ról 

A MtD$ utasítás a Basic V2.0-ról a V7.0-ra való áttéréssel 
lényegesen megváltozott. Most ugyanis ez az utasítás állhat egy 
értékadás bal oldalán is. 

A$ = „TEST”: MID$(A$,1,1) = „R” 

Az ilyen utasítás a C64-nél bizonyosan szintaktikus hibajelzést 
vált ki, míg C128-nál nem. Az előbbi utasítás hatására az A$ 
sztringváltozó első betűje R-re íródik át, vagyis A$ = ,,REST” 
lesz. 
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Még többet ésszel! 


XIX. rész 


A lemezegységben egy közel 16 kilobyte-os ROM-ban van 
a DOS, amelyet további 2 kB RAM is kiszolgál. Ezek elérésére, 
hasonlóan a BASIC nyelv PEEK és POKE műveleteihez, létezik 
két DOS-parancs; a Mcmory-Rcad és a Memory-Writc. 

Több különbség van ezek és a direkt állományok kezelésére 
használt parancsok között. Elsősorban elmarad a külön pufíér 
megnyitá.sa, az adatok a parancs-csatornán közlekednek. Más a 
paraméterek típusa is, ugyanis itt sosem számokat, hanem meg¬ 
határozott kódú karaktereket kell megadni. A parancsoknak csak 
a rövidített alakja használható, és kettőspont nem írható utánuk. 
A leírásban levő szóközök is csak az olvashatóságot szolgálják, 
kiírni őket nem szabad, hiszen a DOS nem tudja, hogy a szóköz¬ 
zel nem egy 32-es (ez a szóköz kódja) értékű paramétert adtunk 
át. 

A (cím/a) és {cím/f) nevű paraméterek olyan karaktereket 
jelentenek, amelyek kódjai alsó/télső byte sorrendben mutatnak 
az írás vagy olvasás során elsőként érintendő memóriacímre. Ha 
a memóriaeím jele MC, a két összetevő jele CA és CF, akkor 
egymásba az 1. példán látható módon számíthatók át. 

M-R (cím/a) (cím/f) [{hossz)] 

A megadott mcmóriacímtől kezdve (hos.sz) számú egymás 
utáni byte olvasható ki a parancs-csatornán keresztül. A (hossz) 
értéke legfeljebb 255 lehet. Az adatok után egy plusz Return ka¬ 
raktert (13-as kód) is kapunk, azért, hogy INPUT # utasítással 
is átvehető legyen az adatsor, egyetlen karakterláncban. A ,,File 
Vége” jelzés a Return kiölvasá.sakor jelenik meg. Az INPUT # 
használatának feltétele, hogy a szöveg 88 karakternél ne legyen 
hos.sziibb, és Return, ves.sző, kettőspont vagy nullás karakter zár¬ 
ja le. Hátránya, hogy ha ezek bármelyike az üzenet közben is 
előfordult, akkor a további adatok elvesznek. Bár lassabb, de 
sokszor biztosabb a 2. példa mintájára GET # utasítást használ¬ 
ni. A példa egyébként összevethető az előző rész 3. példájával is. 

Ha a (hossz) karakterét elhagyjuk (a szögletes zárójel most 
is e választási lehetőség jele, és nem a parancs része), akkor a 
DOS az értékét 1-nek feltételezi. Ha a megadott hosszon túl olva¬ 
sunk, akkor a DOS szokásos hibaüzenetének karaktereit fogjuk 
adatként megkapni. 

M-W (eím/a) (cím/f) (hossz) (szöveg) 

A parancs kiadása után a (szöveg) helyén levő karakterlánc 
első (hossz) darab byte-ja a megadott címtől kezdve a lemez¬ 
egység memóriájába íródik (3. pl.). A (hossz) értéke legfeljebb 
35 lehet, ennyi karakter átvételére képes a lemezegység input- 
puffere, a fennmaradó karakterek elve.sznek. Ha a (hossz )-nál 
kevc.sebb karaktert tartalmaz a (szöveg), akkor a további helyek 
nullás karakterekkel töltődnek fel. A következő, a parancs¬ 
csatornára küldött üzenetet a DOS akkor is új parancsként pró¬ 
bálja meg értelmezni, ha a {hossz)-ban meghatározott társza¬ 
kaszt az előző üzenettel még nem töltöttük ki. 

Természetesen ahhoz, hogy a lemezegység memóriáját 
eredményesen kezelni lehessen, tudni kell, hogy mi hol van ben¬ 
ne. Ha most azt várnád, kedves Olvasó, hogy erről fogok beszél¬ 
ni, c.salódni fogsz. Ennek bemutatása már egyáltalán nem tarto¬ 
zik a cikk.sorozat alaptémájához, és csak régebbi szakkönyvek 
felkutatását tanácsolhatom. Hasonlóan elhagyom még néhány 
olyan DOS-parancs ismertetését is, amely szintén elvezetne ben¬ 


nünket a BASIC programozástól. Egy parancs van még hátra, 
azt majd a relatív file kapcsán fogom megemlíteni. 

Beszélni fogok viszont a lemez felosztásáról, ahogy meg¬ 
ígértem. A lemez általában teljesen egyenrangú .sávokból és 
szektorokból áll. Kivétel a 18-as sáv, amelyet a DOS, ha másra 
nem kény.szerítjük, teljes egészében kiemelt fontosságú adatok 
számára tart fenn. Ilyen adat például a BAM, a lemez fejléce és 
a katalógus. 

A 4. példa az egyik lemezem 18-as sávjának 0. szektorát áb¬ 
rázolja, nagyjából úgy, ahogy azt a korábban ismertetett lemez¬ 
monitorral láthatom. Kaotikusnak tűnhet, pedig nagy itt a rend. 
Minden adat mindig csak a saját, szigorúan meghatározott he¬ 
lyére kerülhet. A byte-ok, amint abban a direkt állományok put- 
fereinél (ez is csak az!) megegyeztünk, 0 és 255 közötti sonszá- 
mot kapnak. A monitor képén tizenhatos számrendszerben 
minden .sor elején a sor első adatbyte-jának sorszáma látszik, egy 
sor 8 byte-ot tartalmaz. Jobbra van az adatok képszerű megjele¬ 
nítése. Sorban elmondom minden byte-ról, hogy mi a szerepe. 

00—01. byte: a katalógus első blokkjának helyét mutatja a 
lemezen, itt tehát 18. sáv 1. .szektor. Az a helyzet, hogy bármi 
más értéket írnánk is ide, a DOS mindenképpen a 18—Ol-es 
blokknál keresi a katalógus elejét, tehát ennek nincs a világon 
.semmi jelentősége. Az első validálás vissza is állítja a helyes ér¬ 
téket, bár előtte az itt jelzett ,,katalógusblokkot” lefoglalja a 
BAM-bán. 

02. byte: a lemez formátumtípusának a jelzése. Ez még ab¬ 
ból az időből maradhatott fenn, amikor ezt a lemezformátumot 
más gépek lemezegységei is használták, így a lemez beosztásá¬ 
nak azonosítása még lényeges lehetett. Ma már nincs ilyen szere¬ 
pe. Ennek ellenére nehogy bárki is megpróbáljon ide mást írni! 
Ha ugyanis akár c.sak véletlenül is $41-től eltérő érték kerül ide, 
a lemezre soha többé nem tudunk semmit írni! Csak a formázás 
tudja ezt az írá.svédelmet felülbírálni, meg .szerencsére egy-két 
nagyon ravasz lemezkezelő program, mint például az Under- 
ground Network nevű (?) monitor. Eltérő azonosító érték esetén 
az első író műveletre 73-as hibaüzenetet kapunk. 

03. byte: értéke (X), nincs szerepe. 

04—8F. byte: a BAM (Bloek Availability Map), magyarul 
blokkfoglaltsági térképnek hívják. Ez az a hely, ahol a DOS 
minden blokkról nyilvántartja, hogy felhasználta-e már valame¬ 
lyik File vagy még .szabad. Ha a térkép nem a valóságos helyzetet 
mutatja, kell a VALIDATE paranccsal rendet rakni. Ha egy file-t 
akarunk a lemezre Íratni, a DOS a 18-as sávhoz legközelebbi, 
a BAM-ban szabadnak jelzett blokkba ír először, majd ugyan¬ 
azon a lemezfélen tovább ugyanígy keresi a következő szabad 
blokkokat. Ha új file bejegyzéséhez új katalógusblokk szüksé¬ 
ges, a DOS azt is a BAM jelzé.se alapján veszi fel. Ha a katalógus- 
.sáv minden blokkja foglaltnak van jelezve, 72-cs hibaüzenetet 
kapunk. 

A BAM szerkezete elég egyszerű. A 140 byte-ot négyesével 
felosztva pont 35 csoportot kapunk, a lemezen is 35 sáv van. így 
ki.számítható például, hogy a 18. sáv adatai a $48—4B jelű 
byte-okba kerülnek. Minden csoport 0. byte-ja (a blokk 04, 08, 
OC.. .8C jelű byte-ja) az illető sáv szabad blokkjainak a számát 
mutatja. Eszerint pl. a lemezem 5. sávjában már csak 19 ($13) 
szabad blokk van. így végignézve a lemez kihasználtságát, fel¬ 
tűnhet, hogy milyen hézagosán vannak a külső sávok elfoglalva. 
Sok rövid életű állomány használatával könnyen jön létre ilyen 
helyzet. 
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SZOFTVER 




o 


o 


< 2 . ) 

0 RÉM *** LEMEZNEV » 

2 OPEN 15.8,15,”10” 

3 PR INT#15, "M-R” ;CHR$(144);CHRS(7);CHRÍ(16) 

4 NS=""; FÓR 1=1 TO 16: GET #15,VS 


o 


o 


N$=NS+VS: 
CLOSE 15 


NEXT I: PR INT "A LEMEZ NEVE: ,ia”NI 
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(4. ) 


o 
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o 
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FF 

15 
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IF 
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IF 

13 
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F7 
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0 
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CF 
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DF 

IF 
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> :48 

12 

FE 

FF 

07 

00 

00 

00 

00 



o 
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> :70 

12 

FF 

FF 

03 

12 

FF 

FF 

03 

BEmCM'ISTEB 



> :78 

12 

FF 

FF 

03 

1 1 

FF 

FF 

01 

KiiuinnsiiH 


0 

> :80 

1 1 

FF 

FF 

01 

10 

FF 

FD 

01 

ffiraiKU'i 

0 


> :88 

1 1 

FF 

FF 

01 

1 1 

FF 

FF 
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o 
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4321 98 
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o 


o 
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A négyesek maradék byte-jai mutatják a sáv minden blokk¬ 
járól, hogy foglalt-e vagy sem. Minden blokknak egy-egy bit fe¬ 
lel meg, a szabad állapotot a bit 1-es értéke jelenti. A négyesek 
1. számú byte-ja (a blokkban 05., 09. stb.) a 7—0. blokk foglaltsá¬ 
gát jelzi (a helyiérték szerint), a 2 . byte-ok a 15—8. blokkokét, 
a 3. byte-ok a 23—16. blokkokét. Mivel egy sávon sincs annyi 
blokk, amennyi adata a három byte-ban elférne, a nem létező 
blokkok természetesen foglaltnak vannak jelölve. Az 5. példán 
a blokk 34—37. byte-jait kiemelve a 13. sáv foglaltsági adatait 
részletezem. Ha valamelyik csoportban nem pont annyi 1-es bit 
van, amennyit a csoport 0. byte-ja mutat, akkor a legközelebbi 
íráskor 71-es hibaüzenetet kapunk. 

90—9F. byte: a lemez neve. Mindig 16 byte hosszú, a hiány¬ 
zó karakterek helyére 160-as karakterek (shift-szóköz) kerülnek. 

AO—Al. byte: értékű $A0, szerepük nincs. 

A2—A3. byte: az azonosító karakterei. A formázáskor eze¬ 
ket kell a név mellett megadni. 

A4—A6. byte: formázáskor az itt látható ,,2A” szöveggel 
töltődik fel. Régebben szintén a lemezformátum azonosításában 
lehetett valami szerepe, ma már nincs jelentése. Mivel a tarta¬ 
lomjegyzék kiírásakor megjelenik, lehetőségünk van a lemez 
azonosítóját összesen öt karakter hosszúra megnövelni, moni¬ 
torral vagy más közvetlen módon a lemezre írva. 

A7—AA. byte: értékű $A0, szerepük nincs. 

AB—F¥. byte: értékük $00, szerepük nincs. Ez utóbbi két 
területet semmilyen DOS művelet nem érinti (a formázás kivéte¬ 
lével), ezért kiegészítő adatok, megjegyzések tárolására al¬ 
kalmasak. 

Legközelebb a katalógus elemzésével folytatjuk. 

Hódi Gyula 


POKE-ok a grafikához 


Amikor a C128-nál saját karaktereket definiálunk, gyakran 
problémát okoz, hogy hogyan kapcsoljuk azt be. Ha ezek a ka¬ 
rakterek a memóriában a $3000 (decimális 12288) memória¬ 
helytől kezdve vannak elhelyezve, akkor erre a karakterkészletre 
POKE 2604, (PEEK (2604) AND 240) OR 12 
utasítással kapcsolhatunk át. 

Egyszerű trükkel gondoskodhatunk arról, hogy a számító¬ 
gép gyorsabban fosson. Ehhez egyszerűen 60 Hz-re kapcsol át. 


Az utasítás: 

POKE 2563,0 

A lassabb működés (50 Hz) 

POKE 563,255 

utasítással érhető el. Ez a trükk különösen jól felismerhető, ha 
a 80 karakteres képernyő minden memóriahelyét inicializáljuk a 
SYS 57721: RÉM JSR $E179 
utasítással. 
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PROGRAM 



TCT program 

Konfiguráció: C-64/MPS-1230 


I. Bevezető 

A címbéli „mozaikszó” feloldása: 
Three-Cleft Text. (Háromhasábos szö¬ 
veg.) Hogy e kifejezés mit ígér a gyakor¬ 
latban, az a jelen printeroutputból máris 
sejthető.* 

Mielőtt rátérnék a program bemu¬ 
tatására — ismeretlenül bár, de — kö¬ 
szönetét kell mondanom Horváth László 
(alias ,,HORLA-SOFT”) úrnak a Com¬ 
modore újságban megjelent cikksoro¬ 
zatáért. 

Ugyanis a TCT program megírásának 
előzménye az volt, hogy jónéhány hónap¬ 
ja olyan levelet kaptam külföldről, ame¬ 
lyet két hasábot nyomtató szövegszerkesz¬ 
tővel írtak. ,,lde nekem az oroszlánt is!” 
kiáltottam fel. Azután ebben is maradt a 
dolog. A printer programozásával még 
csak-csak megbirkóztam volna, de a szö¬ 
vegszerkesztő rész...? így hát,,hibernál¬ 
tam” a jámbor óhaj szintjén maradt 
ötletet. 

A reanimáció akkor következett be, 
amikor a C-újság 1991/6. számában elol¬ 
vastam Horváth úr cikkét, amely többek 
között beígérte egy ,,mini iratkészítő” 
közlését. 

Már az assembly lista tanulmányozá¬ 
sa is adott hasznos ötletet! Nevezetesen a 
CTRL-kódtábla módosításának megoldá¬ 
sát — némi racionalizálással — felhasz¬ 
náltam. 

Az igazi ,,kulcsot” azonban a 7/8. 
számban közölt folytatás adta! A sorok 
tömbelemként való kezelése — legalábbis 
számomra — a rcveláció erejével hatott. 
Nem tudván megvárni a szeptemberi 
számot, a BASIC betöltővel létrehoztam a 
LINEIN és a DIR gépi kódú rutinokat, 
majd ezután ezek nyomtatott assembly lis¬ 
táját. (A módszer leírása megjelent a 
C-újság 1992/3. számának 29. oldalán.) 

Nekilátva az érdemi munkának — az 
alapcélon túl — három szempontot tartot¬ 
tam fontosnak: 

1. Gyors programfutás. 

2. Kényelmes használat. 

3. Biztonság. (Védelem a ,,helyre¬ 
hozhatatlan” tévedések ellen.) 

*A kézirat háromhasábos nvomtatással készült. 


^ 10 rém main prg./tct 920317 
20 : 

Q 30 i-f a then 80 

40 poke 53280,6;poke 53281,8:poke 646,9:poke 808,234 
50 print"achr3:(14)chrár(8) 

^ 60 prinf ^g l igferg El i gl STHREE-CLEFT TEXT" 

70 a=l: 1 oack'gepi , 8 ,1 

Q 80 sys 51200 

90 dim aá:(l) ,t$(354) ,h(3) ,hb(26) ,k<9) .sh<3) ,btá:(3) : r=354 
100 h(l)=37:h<2)=17:h(3)=ll:sh(l)=64:sh(2)=40:sh(3)=40 
O 110 btí:(l)="PICA":btá-(2)="ELIT":btí:(3)="C0NDENSED" 

120 hví:="l:for 1=1 to 40: hvá:=hv$+"-" : next 1 : hvir=hvík+"a 
Q 130 Tor 1 = 1 to 40: puí=pu:T+" ":next 1 : ec:lr=chrí <27) 

140 lm(l)= 8 : lm(2)=7; lm(3)=5:p$=chrí (160) : u:f="a>" : goto 880 
150 + 0 = 0 : i-f s-^(sk#bt)<r then 190 
O 160 print "SH a A mem«ri rban nincs t™bb hely í S 
170 print "SH <F-1 >" : f li=1 : gosub 5-30 
Q 180 wait 198,1: get wí':i+ wíOchrí (13:3) then 180 
190 return 

200 Tor a=l to bt: qí-=tí (w) : if uz=4 then 220 
O 210 h=h(bt):i+ qí:=pí then q:^="a'strí (w)+" U: h=h +2 
220 pr$:=prí-+-l e+tí (qí+puí ,h) +dT 
„ 230 w=w+m:next a:w=w-m:if uz=4 then 250 
240 print 1 ef tí-(pr#-, 39) : goto 260 
250 print#l,prí^ 

O 260 return 

270 i=0:sx=sk:z=s 

^ 280 if z/btOi nt (z / bt) then z=zi-1: tí (z ) =p4::; goto 280 
^ 290 m=59~sx : sm=m-i<-bt: i + (z-i)=>sm then 310 

300 m=(z-i)/bt 

O 310 hv=fn-+'i ; p,= 0 : sx= 0 : return 

320 q^=tí:<i):i+ qí^Opí then 340 

330 q^="a^-strí (i)+" ":i+ i=hi then qír='' "+q$;gota 350 
® .340 if i=hi then f=peek (214) : prinf'a; 

350 print q$"a: 

O 360 if Ien(q$:)-Í40 or bt = l then print 
370 if uz=2 then -390 

380 if i=0 and sk then fór j = l to sk+l:print uí';next j 
^ 390 return 

400 fór dl=f to 24:poke 781,dl:sys 59903;next dl 
Q 410 poke 214,f:pake 211,v:sys 58640;return 

420 prinf'Sl a Eg-^zen biztos benne? a;:goto 440 
430 print" O.K, ? ? 

O 440 print" aifljen/S'lifem": gosub 530 

450 get w#:if wí:-í>"i" and wíf<>"n" then 450 
Q 460 return 

470 gosub 440:gosub 410 

480 f=f-r-2:if wi="i" then print " ■»"; 

O 490 print " 

500 return 

Q 510 open 15,8,15: i nput#15, e, eí^: i f e=0 then return 

520 prinf'Sl a "e$" close2:print#15,"icloselS:return 
530 sys 52011:return 

O 540 print"i®CH a K-H"em el 1 en-r ■eze: SH 

550 print" A nyomtat*. ~zem rl 1 apót rt. SÍ: f = 16 
Q 560 print" A pap«r mennyi s-'^-M:. " 

570 prinf'Sl A lap pozicion rl rs rt I SH 
580 gosub 4-30: if wí="n" then hb=l: return 
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PROGRAM 


II. A program szerkezete 
és felépítése 

Elsőként a DIR rutint egészítettem 
ki. így hosszabb lemezkatalógus esetén 
sem „szalad el” a tartalomjegyzék eleje, 
hanem a képernyő betekével megáll a ki¬ 
írás és csak (RETURN)-re folytatódik. 

A LINEIN rutint vi.szont , .elfelejtet¬ 
tem”. Három oka volt ennek: 

1. A lemezolvasás sebességét a soros 
port eleve limitálja, tehát a gépi 
kódú rutin nem tud gyorsítani. 

2. Az írott szövegben előforduló — a 
DOS által elválasztójelként (:,;) 
értelmezett — karakterek megje¬ 
lenítése és reprodukálhatósága 
más módon is megoldható. 

3. Végül, de nem utolsósorban a 
,,csonka sorok”, tehát a max. sor¬ 
hossznál rövidebb sorok nem ra¬ 
bolnak el felesleges lemezkapaci¬ 
tást. (Ennek a leírásnak az első 
2 oldala 45 lemezblokkot igé¬ 
nyel.) 

A program futásának gyorsítása ér¬ 
dekében az operációs rendszer Garbage 
Collection rutinja is talonba került. 
Ugyanis a stringműveletenkénti meghívás 
ellenére, átlagban 250 soronként automa¬ 
tikusan végrehajtódott egy ,.szemétgyűj¬ 
tés”. Nem volt értelme tehát, hogy a prog¬ 
ramból hívogassuk a rutint. 

A program tesztelése, ezen leírás el¬ 
készítésével történt. A felfedett hibák, 
vagy az esetleges újabb ötletek nemcsak 
a program, hanem a leírás módosítását is 
szükségessé tették. 

Eközben,,derűit ki”, hogy a beszúrá¬ 
si és sortörlési művelet BASIC-ben meg¬ 
engedhetetlenül lassú. (A leírás 2. sora 
elé történő beszúrás kb. 30 sec.-ot vett 
igénybe.) így ezt a feladatot is gépi kódú 
rutinra kellett bízni. A végrehajtási idő 
0,5—1,5 sec.-ra csökkent. 

Ugyancsak a programfutás gyorsítá¬ 
sának igénye miatt, egy gépi kódú rutint 
kellet kreálni, amely a beírt karakterek 
bevételezésén túl, a ,.tiltott” karakterek 
konverzióját is végrehajtja (GET). 

Az elfogadott karaktereket a rutin el¬ 
helyezi a saját pufferében, majd a sor be¬ 
fejeztével, ennekcímét adja meg az A$(0) 
stringváltozó címeként. Visszatérve a BA- 
SlC-bc: T$(X) = A$(0). A keresési pro¬ 
cedúrát elkerülendő, elsőként az A$(l) 
, .tömböt”, majd a T$(354)-es tömböt kell 
deklarálni. így azok címei relatíve fix he¬ 
lyen találhatók. 

A teljes — 7 blokkos — gépi kódú 
program valójában több rutinból áll. Ezek 
sorrendben: 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


570 i-f peek (52222) then 6612 

600 print"isiíi»i!i 3 K-4^efn rll«tsa be a SET UP ei j i-r rssal : Jlil 

610 print" l./az EPSON FX-80 emui rci».t,5l 

620 print" 2./a 4-es egys-^sz rmot hPCh-re.Sl 

630 print" 3./ hENABLE D.L.L.; YES rSEJ: gosub 430 

640 i-f wí="n" then hb=l:return 

650 sys 52166:poke 52222,1: c: 1 őse;l 

660 cl ősei:open1,4:print#l,chr$(17)chr*(24);:return 

670 if ci then 720 

680 print#l,ec4"P";chrí(18); 

690 printttl,ecí"E"; 

700 print#l,tab(37)"-"lp"-"Bcí:"F";lp=lp + l 

710 print#l:print#l 

720 on bt goto 750,730,740 

7-30 printttl ,ec:f“M" goto 750 

740 printttl,chr4<15); 

750 i-f ci=0 or lp>l then 830 
760 i-f em then printttl ,ecsf"E"; 

770 printttl , chrí- (13) tab (lm (bt) -►■11) ; 

780 if al then pr i ntttl . ecít:"-"chrí (1) ; 

790 printttl ,chrí^(d) :cí:;chr5-(20) chrit^ (1.3) 1 p=l p-f-l 

800 if al then printttl.ec^"."chr'i-(0); 

810 if em then grintttl,ecí"F"; 

820 if sk then fór 1==1 to sk: pij i ntttl: ne:-ct 1 
830 return 

840 prinfíEPPl 3 A t rrban m-hg nincs sz...veg I ! I " 

850 gosub 530: pr int "1:0 Vissza a f _men“"h.™z : < F--1 >" 

860 get wí::if wí-í >chrí (1-33) then 860 
870 goto 970 

880 meí (l)="5z_vegbe«c rs. " 

890 meí(2)="Sz—vegei 1en_rz-^." 

900 meí (3) ="Form rtum el 1 en_j'-z-^" 

910 me#(4)="Nyomtat rS. " 

920 meí-(5) =="Lemez katalógus." 

930 me-.í (6) ="Sz_veg behoiv rs. " 

940 me$(7)-"Lemezrement-^." 

950 meí(8)="File t_rl-^" 

960 meí(9)="V ■ 8 E":q=peak(2):poke 2,0:if q then 1090 

970 pr i nt " hb=0: ke=2: q=0: v=l 1 

980 fór 1=1 to 9:f=ke:gosub 410:print meí(1): 
ke=ke-t-2: next 1 

990 print spe (8) "Sül -<CRSR-1 e./'fel > <RETURN>" 

1000 gosub 5-30: kB=2: v=9; poke 650,64!for 1 = 1 to 9 
1010 f=ke:gosub 410:print ">" 

1020 wait 198,1:get w4 

1030 if wü—chrí(13) then q=l:1=9:goto 1080 

1040 if wf=chrí(17) then ke-=ke-t-2: goto 1070 

1050 if 1>1 and wí=chr4(145) then ke=ke-2:1=1-2:goto 1070 

1060 goto 1020 

1070 gosub 410:print" " 

1080 next l:poke 650,0:if q=0 then 1000 

1090 v=0:u2=q;on g goto 1100,1650,2470,2600 .,3000, 

3010,3070,3160,3220 
1100 print "«J:if s=0 then 1160 
1110 print"5ni 3 A t rrban sz—veg van ! á 
1120 print "5ni T_j'-_l„iek gosub 440 

11.30 if wí="i" then f=5:gosu.b 410;poke 2,q:goto 3230 
1140 poke 2,0:if q>l then return 
1150 goto 1200 

1160 gosub 530: ní:=" " ; prinf'sfcfcfcl A fiié neve: " ; : i nput ni 
1170 if n3:="" or len(n4).>16 then 1160 

1180 if q=7 and n4="-i<-" then n4'-=f i f =3; v=16 : gosub 410: 

print" "ni:v=0:goto 1200 
1190 if ni="-*-" then 1160 
1200 fii=ni:if q>l then return 
1210 if s then 1480 

1220 print "i=5r*Í!l H my has rbot k-H'- ? " 

12-30 get wi: bt=val (w'i) : if bt'<i or bt>3 then 1230 
1240 5h=sh (bt) : pr i nt " 

1250 print" A has rbok szrftra;";bt 

1260 print"«l Bet“tmipus ";bti(bt) 
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1. EPSON dekódolás a kódtáblá¬ 
val. 

Az áthelyezett és módosított 
BSOUT rutin. Konvertál a BA¬ 
SIC kódról az EPSON (P. C.) 
kódra. 

2. DIR. 

Egyszerre csak 23 sort ír ki. 

3. GET rutin. 

Működését lásd fentebb! 

4. Sorkiegyenlítés. 

5. Hangjelzés generálása. 

6. CTRL módosítás. 

A módosított CTRL rutin és kód¬ 
tábla betöltése a szalagpufférba. 

7. Printer előkészítés. 

A nyomtató saját RAM-jába má¬ 
solt karakterkészletét módosítja 
az ékezetes karaktereknek meg¬ 
felelően. 

8. Beszúrás/sortörlés. 

9. Karaktergenerátor másoló. 

A C-64 karakterkészletét másol¬ 
ja a ROM-ból a RAM-ba. Mivel 
a program szövegírásra készült, 
csak a kisbetűs/nagybetűs rész 
kerül átmásolásra és módosí¬ 
tásra. 

10. Ékezetes karaktertöltő. 

11. A rendszerváltozók átírása. 

Itt kell megjegyezni, hogy a gépi 
kódú programot az első futtatás előtt kell 
lemezre menteni, mert több helyütt átírja 
önmagát. 

(Nem tudom, hogy terjedelme miatt 
közlésre kerülhet-e a BASIC betöltő. De 
az az érdekessége, hogy valamivel keve¬ 
sebb mint 1700 adat 9 blokkban foglal he¬ 
lyet. Adathiba esetén a program kiírja, 
hogy a hibát melyik blokkba kell keresni, 
így — esetenként — ,,csak” 200 adatot 
kell átböngészni.) 

Mint már említettem volt, fontos 
szempontnak tekintettem a program ké¬ 
nyelmes és könnyű használhatóságát. Per¬ 
sze tudva azt, hogy egy profi szövegszer¬ 
kesztő ,,komfortfokozatát” meg sem kö¬ 
zelíthetem. így hát nem különcködés, ha¬ 
nem a fentiek miatt alkamaztam eltérő 
(Mitől is tér el? Melyik szabványtól?) éke¬ 
zetes billentyű kiosztást. íme: 

AERTYUI DP@ 
C- áé—űüúíóöő 
CTRL ÁÉ-ŰÜÚÍ ÓÖŐ 

,,Őrültség, de van benne rendszer.” (Polo- 
nius után szabadon.) 

Egyetlen pillantást vetve a klaviatúrá¬ 
ra azonnal feltűnik, hogy az ,,á” kivételé¬ 
vel minden ékezetes billentyű egyetlen 
sorban található, az ,,ű”től pedig sorfoly- 
tonosan. És ami talán még ennél is lénye¬ 
gesebb, egyetlen ,,használható” karakter 
sem veszett el. 

A további komfort jegyében a prog- 
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o 
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^ 1270 
1280 
1290 
1300 
1310 
O 1320 
1330 
Q 1340 

1350 
O 1360 
1370 
1380 
1390 
1400 
O 1410 
1420 

^ 1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
O 1560 
1570 
1580 
O 1590 
1600 
O 1610 
1620 
1630 
1640 
1650 

Q 1660 

1670 
1680 
O 1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
O 1890 
1900 

O 

1920 
O 1930 
1940 
1950 


O 


O 


o 


o 


prinfil A maK . ol dal sz rm: 6/bt 

prinf'JI Sor/oldal :”;59*bt 

prinf'Sl Karakter/sor : "; sh 

print:gosub 430: i-f w:f=''n" then 1220 
i-f q=4 then return 

gosub 530: pr i nt "i=EEP| Sorki egyenl Mt-^" gosub 440 

eg=0:if w$="i" then eg=l 

poke 51853,eg:poke 51701,sh: 

poke 249,30-6:1+ s then return 

gosub 5.30: ci=0: sk=0 

print"sEni?l AZ irat c^e;Sni:sys 51702;print" " 
x=peek (250) : i + ;:=0 then c4="":goto 1400 
print"?®: gosub 430: i+ wt-="n" then 1350 
cí=a$(0):ci=1 
if s=r or >í=0 then 1470 

gosub 530: pr i nt "j=EOI K-Vem jel—Ije ki a cum utmiJI 
print" a “rés sorokat! fi*!?! 
pr i nt "aoí "5|: pr i nt uí 
gosub 150: i-f -fu then 14/0 

get wí::if wí:< >chr-í (13) and wá-í/chrí-(133) then 1450 

i+ w4-=chr4(13) then print uí: sk=sk + l: goto 1440 

t'í (0) =cí^: i + q>l then return 

print "3:1+ s then gosub 1320:goto 1500 

print "áia A S 2 _veg: Sí: goto 1510 

print "aSO Folytat i-s a"str-f (s+1) " . sortn.,! . SÍ 

if s=0 and ci=0 then 1560 

y=s-5:if y<1 then y=l 

if ci and y=l then y=0 

hi=s-*-.3: f or i=y to s;gosub 320:neKt i 

gosub 150:if fu then 970 

sys 51702: print" ||; 

if peek(51698)=133 then 1620 

;:=peek (250) : i f :-!=0 then aí^ (0) =pf: pri nt u$; 

s=s+l: tí^ (s) =aí (0) : i f x=40 then 1550 

if x=39 then print" ";:goto 1550 

print;goto 1550 

f=peek(214);gosub 420 

if wí="n" then gosub 400;goto 1550 

goto 970 

if s=0 then 840 

hi =s-h 3: uz=2: gosub 530:print"a 

gosub 530:print"3 

prinf'Sül A szabad sorok sz rma ; "r-s-(sk-n-bt) 

prinf'SH A foglalt sorok sz rma ; "s 

prinf'SEI Hmyadik sort—l 

input w$: y=val (wí^) : if y=0 or y>s then 970 

pr i nt "SEI; ; a=l: i f y>l then 1740 

if ci then a=0:y=0 

gosub 270 

fór i=a to z:if i-<y then 1840 
gosub 320 

get w$:if w4=chr(17) then 1820 

if w4=chrí: (145) then i=i-l:goto 1760 

if wí=chrí(136) then hb=hb+l:hb(hb)=i;goto 1820 

if wí=chr$: (133) then i=z:gota 1870 

goto 1770 

if i=0 then gosub 380 
if hb=25 then i=z;goto 1830 
if i'í.>hv then 1870 

hv=hv+m:p=p+l:if i=>y then print hv4 
if p=bt then gosub 290 
next i:if hb=0 then 850 

gosub 1.320:print "SEl Javért rskor is ??"; 
jv=0;gosub 440;if w4="i" then jv=l 
far 1=1 to hb;hi=hb(l) 

print "950 A m«dos«itandiii» sor sz rma: "strí (hi ) " 
gosub 2420 

fór i=y to x:gosub 320 
if i=0 then gosub 380 
next i:ffpeek(214)+2 

gosub 400:print spc(12)"Jav«trs Cll 
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ram vezérlése kétféle menütechnikával, és 
az Igen/Nem alternatívával történik. 

Ugyancsak a komfort jegyében vá¬ 
lasztottam a nyomtató Epson FX 80-as 
emulációját. Sokoldalú szolgáltatásai el¬ 
lenére könnyen programozható és a 
RAM-ba másolt teljes karaktergenerátor 
módosítható. (Szemben a többi üzem¬ 
móddal , amelyek csak az űn.,,normál ka¬ 
rakterek”, tehát a 33 és 126 közötti ASCII 
kódtartományba eső karakterek módosí¬ 
tását engedik meg. Ergo ROM-RAM át- 
kapcsolgatás nélkül nem lehetne ékezetes 
karatereket nyomtatni. Persze ezt is meg 
lehetne oldani, de hát a programozó is 
ember...) 

A lapra nyomtatás lehetóségét is fi¬ 
gyelembe véve, egy oldalra 62 sor nyom¬ 
tatható. Ebből 3 sort foglal le a lapszámo¬ 
zás, vagy a cím. A fennmaradó 59 nyom¬ 
tatott sorba kerül a választott hasábszám¬ 
tól függően az 59, a 118, illetve a 177 szö¬ 
vegsor. Mivel a program 354 sor bevitelét 
engedi meg, a maximálisan nyomtatható 
oldalak száma rendre: 6; 3; 2. 

Az irat címe (amely levél esetén lehet 
a megszólítás) után kijelölt minden .sorköz 
csökkenti úgy a beírható, mint a nyomtat¬ 
ható szövegsorok számát. 

Ha az elkészítendő irat hosszabb mint 
a hasábszámhoz engedélyezett oldalszám, 
az iratot újabb file-ban kell folytatni, de 
most már cím nélkül és a folytatás kezdő 
lapszámát a nyomtatáskor kell kijelölni. 


lil. A program behívása 
és a főmenü 

A betöltés és az indítás ,,hagyomá¬ 
nyos” módon történik. A gépi k(5dú prog¬ 
ramot a BASIC hívja be. A töltés kezdete¬ 
kor megváltozik a képernyő és a karakter 
szín, "a’la HELP4-". (Kellemesebb szín- 
kombinációt nem találtam.) Színeváltozá¬ 
sával, valamit a THREE-CLEF TEXT 
felirattal jelentkezik be a program. 

A betöltés és a gépi kódú rutinok futá¬ 
sának befejeztével kapjuk a főmenüt, az 
alábbi üzemmód választékával: 
Szövegbeírás. 

Szövegellenőrzés. 

Formátum ellenőrzés. 

Nyomtatás. 

Lemezkatalógus. 

Szövegbetöltés. 

Lemezrementés. 

Fiié törlés. 

VÉGE. 

(CRSR-le/fel) (RETURN) 

A legfelső sor előtt egy , ,jobbra nyíl” 
látható, amelyet a jelzett billentyűkkel tu- 
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1960 print spe (12) "Be5z“r ns Í21 
1970 print spe (12) "Sort™rlII.3] 

1980 print spc(12)"M ARA D ! C4:S| 

1990 print spe (12) "V rl asszon C 3U1; 

2000 get w4>: CQ=va:i. (w4) : i f co<l or co>4 then -2000 
2010 gosLib 400:on co-1 goto 2100,2150,2410 
2020 if jv then 2350 
2030 qíf=t4: (hi ) : i-f q4:=p4- then q4:="" 

2032 print " a ’,'=<C=+£> * ’:'=<SHIFT+£> " 

2034 print " a ';'=<C=+S> * ’l-’=<C=+a> 50 

2040 ■f=peek (214) ! print qí'sgosub 410 

2050 poke 19,1:input q$:poke 19,0 

2060 if q4~"" then q45=p4':goto 2090 

2070 h=l en (q:F) : i f h<=sh then 2090 

2080 q*=l ef ti (qf+pu4:, sh ) 

2090 ti(hi)=qi:print:goto 2410 
2100 if ci or hi>l then 2130 
2110 print " A curttiet akarja pótolni 
qosub 440:gasLib 400 

2120 if wi="i" then gosub 1350;goto 2410 
2130 qosub 150:if fu then 2410 
2140 goto 2160 

2150 if hi=0 then ci=0:sk=0:goto 2410 
2160 k(0)=peek(47)+peek(48)*256+20 
2170 if co=3 then goto 2210 
2180 k(7)=k(0)+(hi*3) 

2190 k(S)=k(0)+s*3+2:k(9)=k(8)+3 

2200 poke 2,0: s=s+l: goto 2.240 

2210 ■ k (7) =k (0) +s*3+3: k (9) =k (0) +h i ^(■3 

2230 k(S)=k(9)+3:poke 2,l:s=s-l 

2240 k(2)=int(k(7)/256):k(1)=k(7)-k(2)*256 

2250 k(4)=in t(k(B)/256):k(3)= k(8)-k(4)*256 

2260 k(6)=int(k(9)/256):k(5)=k(9)-k(6)*256 

2270 poke 247,k(1):poke 248,k(2) 

2280 poke 52537,k(3):poke 52538,k(4) 

2290 poke 52540,k(5):poke 52541,k(6) 

2300 sys 52534 

2310 fór i=l+l to hb:if co=3 then 2330 

2320 hb(i)=hb(i)+l:goto 2340 

2330 hb(i)=hb(i)-l 

2340 neKt i:if co=3 then 2410 

2350 ti(hi)="":gosub 400:if jv then 2380 

2360 gosub 2420: if bt=l and x<s then :<=:•:.1 

2370 fór i=y to gosub 320:next i 

2380 gosub 410:sys 51702:poke 198,0 

2390 if peek(250)=0 then ti(hi)=pi:qoto 2410 

2400 ti(hi)=ai(0) 

2410 next 1:goto 970 

2420 y=hi-2:if y<1 then y=l 

2430 if ci and y=l then y=0 

2440 x=hi+2:if x>s then k=s 

2450 return 

2470 if s=0 then 840 

2480 hi=s+3:lp=l;di=" ":gosub 270:print"a 

2490 if ci=0 then print spe (17) "5PI" "lp"-|5ni: goto 2510 

2500 print lefti(ci,39):gosub 3B0;lp=lp+l 

2510 fór 1=1 to z:w=l:pri="":gosub 200 

2520 get i/ji;if wi< >c:hri (17) and wi<>chri(133) then 2520 

2530 if wi=chri(17) then 2550 

2540 1 =hv: w=l + (bt-'l) *m 

2550 if w=z then l=z:gato 2590 

2560 if l<hv then 2590 

2570 print spe (17) p "--SEl: 1 p=lp + l 

2580 i=w;gosub 290:l=w 

2590 next 1: print "Sí '';:goto 850 

2600 if s=0 then 840 

2610 gosub 540:if hb then 970 

2620 if bt=l then 2640 . 

2630 co=bt:gosub 1240: if btOco then uz=3:gQto 2480 
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2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 


lp=l: print "3: i-f ci then 2690 
inpufüEl A kezd_ lapssi-m: "; wí 
lp=val : if lp<l then 2640 
pr i nt "3: gosub 430: if wf;="n" then 2640 
goto 2820 

f =6 ; v=25: pri nt "SEl-T?! A caBiiets^ 
h=len<cf);if bt=l and h>32 then 2720 


d=20;print "3 

Dupl asz-'-l ess-'-iggel 

? gosub 

470: 

i f 

w$="i" 

then 

d = 14 

ko=0:print "3 

K-z-^pre ? 

";:gosub 

470: 

if 

w$="i" 

then 

ko=l 

al=0:print "3 

Al rfi“zva ? 

";:gosub 

470: 

if 

IM$="Í " 

then 

al =1 

em=0:print "3 

Kiemelt nyomtat rs 

? ";:gosub 

470: 

if 

w$="i" 

then 

em=l 


lt=0!if ka=0 then 2810 
if d=14 then h=h*2 
on bt-1 goto 2790,2800 
lt=int((64-h)/2);goto 2810 
lt=int((84-h)/2):goto 2810 
lt=int((128-h)/2) 

v=0:print "SEI;:gosub 430: if wí="n" then 2690 
fo=l:gosub 270 

print"i?Eni: i-f z<= (59-sk ) *bt then 2860 

print" • a Folyamatos nyomtat i-s ? 3; : gosub 440: pri nt "ann 
if wí:="i" then print" Leporell— nyomtat rs i":goto 2870 
fo=0:print" Egy lap nyomtat rsa 1" 

f =7; 1(11$=" " : f or a=l to 1 m (bt) : 1 m$=l m$+" "iinext a:h=sh:d$=" " 

gosLib 670:for 1=1 to z : pr$=lm$: w=l 
gosub 200 

if w=z then l=z;gato 2980 
if l<hv then 2980 

pr i nt#l, chr$ (12) : ;i=w:c][osub 290:l=w 
if fo then 2970 

gosub 400:gosub 530;print" K-'-rem cser-'-l je ki a lapot,3 

print" majd nyomja meg a l-LDCAL I—t 'SH;gasub 430; if w$="i" then 2970 

gosub 420:if w$="i" then l=z:gQtD 2980 

gosub 400:gosub 680 

next 1:print#l,chr$(12); 

print#l,ec$"P"chr$(18);;gota 970 

sys 51497: poke 198,0: print" "i;;goto 850 

if s then gosub 1100;goto 970 

gosub 1160:open2,8,2,n$+",s,r":gosub 510:if e then 850 

input#2,fi$,bt,sk,c$:sh=sh(bt) 

s=s+l:input#2,t$(s):if st=0 then 3040 

ci=0:if len(c$) then ci=1:t$(0)=c$ 

close2:closel5:goto 1660 

if s=0 then 840 

gosub 1160:open2,8,2,n$+",s,w":gosub 510:if e=0 then 3130 
if e<>63 then 850 

print"3Sl Fel“lMr-jam ? ";:gosub 440: if w$="n" then 970 
gosub 420:if w$="n" then 970 
open2,B,2, "<D: "+n$+" ,s,w” 
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3130 printtt2,fií;",";bt;",";sk;", " ;c$ 

3140 fór 1=1 to s:print#2,t$(l) 

3150 next 1:clase2:closelS:goto 3210 

3160 gosub 1160:if hb then 970 

3170 open2,8,2,n$+",5,r":gosub 510:close2;if 

3180 gosub 420:if w$="n" then 3200 

3190 print#15,"s:"+n$ 


e then 850 


O 

O 

O 
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dunk mozgatni a kívánt üzemmódra. A 
(RETURN) után bejelentkezik a válasz¬ 
tott üzemmód promtja. Ez lehet egy alme¬ 
nü, de lehet egy hibaüzenet is. Két kivétel 
van: A DIR rutin azonnal aktivizálódik, 
a VÉGE esetében pedig visszakérdez: 
,,Egészen biztos benne?” 

Ez a, ,szkeptikus magatartás” jellem¬ 
zője a programnak, és a már említett,,jó¬ 
vátehetetlen” következményekkel járó 
utasítások kivédéséi célozza. Pl. a tár, 
vagy egy fiié törlése, felülírása. Ugyanis 
ha ,,nem”mel válaszolunk, általában a fő¬ 
menüt kapjuk vissza. Ellenkező esetben 
az utasítás végrehajtódik. A VÉGE eseté¬ 
ben a sys 64738-as ROM rutin. (RÉSÉT) 

A főmenü bejelentkezésekor a vezér¬ 
lőbillentyűk ismétlé.sc letiltásra kerül, te¬ 
hát ,,egy lenyomás — egy lépés”. 

A továbbiakban az üzemmódok rész¬ 
letes ismertetése következik, a főmenü 
sorrendjében. 

SZÖVEGBEÍRÁS 

Három alapeset lehetséges: 

1. Az összes szövegstring ,,ürcs”. 

Promt-ként egy kérdést kapunk: ,,A 
fiié neve?”. Azt a nevet kell beírni, amely 
néven a lemezen fog szerepelni. Üres 
stringet nem fogad el. 

A filc nevének megadása után vá¬ 
laszthatjuk ki 1-től 3-ig a nyomtatandó 
hasábok számát. Ezzel egyúttal a betű¬ 
típust is kiválasztottuk. Ezután egy táb¬ 
lázatot kapunk a nyomtatás főbb jellem¬ 
zőivel: 

A hasábok száma: 1 2 3 

A betűtípus: PICA/ELIT/CONDENSED 
Az oldalak száma: 6 3 2 

Karakter/sor: 64 40 40 fHS] 

O.K. ? ? ? 

Nemleges válasz esetén módosíthat¬ 
juk a nyomtatható hasábok számát. (Ter¬ 
mészetesen, csak a választott hasábszám¬ 
nak megfelelő oszlop adatai íródnak ki a 
képernyőre.) 

Ezután az irat címét kéri a program. 
Ha írunk címet, a cím utáni üres sorok ki¬ 
jelölése következik. Minden (RETURN) 
egy üres sort eredményez. Befejezni a sor¬ 
közi kijelölését az (F-l )-gyel lehet. 

Ezután következik az utolsó kérdés: 
,,Sorkiegyenlítés?”. Ha ,,igen”nel vála¬ 
szolunk, aktiválódik a sorkiegyenlítő ru¬ 
tin. (Sorkiegyenlítés történik, ha a beírt 
sor hosszabb mint SH-6 és a sor 2-nél több 
szóközt tartalmaz. A rutin, működése so¬ 
rán az első szóköztől kezdve addig ,,szúr 
be” újabb szóközöket, amíg a sorhossz el 
nem éri az SH értékét.) A válasz után 
megjelenik a villogó kurzor, és a program 
karakterbevitelre vár. 
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3 rém "TCT basic betolto Droqram" 

10 : 

20 ck=51200:f=145 O 

30 orint "Si;:reaa vrtiif vá^="(i)" then 110 
40 s=peek (63) -i-Deek (64) *25ó q 

50 read v:cn=0:'for 1 = 1 to ie^^v4) stea 2 
60 d= (£isc (m:i. d$ (ví ,1,1)) -65) *16-rasc: (midi- 

(ví, 1 -r-1 , 1) .1 ■■■ 65 1 : cn=cn+d ^ 


70 print " poks " str>f (ck-*-c) " , "mi d$ (str:t (d) , 2,3) 

80 poke(ck+c),d!c=c+l:next 1 
90 i-f v=cn then 30 
100 goto 200 

110 print "Sni a O.K. O.K. O.K. " ii cv=ck-i"C-i 

120 print "SIsl A programi emez O.K. ?? 3) flisn/aiőím" 

1- 30 get w4:if w:ip<>"i" and w$'<>"n" then 130 
140 openl5,,S, 15, "i " 

150 :-:=int (ck/2.56) :y=ck-x*256 

160 Gpen2,8.2, "gépi .ztet, p , w " : pr i nt#2 , chrí- (y) ; 

chr:$ (x ) ; : f or l=ck to c:v 
170 print#2,chrt(peek(1));:next 1 
180 close2:clüsei5 

190 print "Jlil a O.K. O.K. O.K. I I fl.'; end 
200 print "SEül 3 A D A T HIBA ' ! 5E1 
210 print "list"strí:(s) 

220 print " jtsfeÉ'-un " : poke 198,8 

2- 30 fór 1=631 to 637:paks l,t:next 1 
240 poke l,13:end 

250 : 


•300 

310 

320 

.330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


data emfdmleik+jkmjadnaaegiemdgohjaog,1768 
data k'f 1 km jaenaami eaegi ki 1 jc ;imi keacem . 1850 
data cdmigiemnnonemnlpbaaabacadaeatag,1430 
data ahaia janal amakaoapagbbbc.bdbebf bg ,2-32: 
data bhbib jbkbibrnbnbobpcacbcccdcecf cg , 488 
data chei c jckcl cm’cncocpdadbdcddded-f dg , 744 
data dhdidjdkdldmdndodpeagbqcgdqeg+'gg, 1192 
data ghgig jgkgigmgnqoqphahbhchdheh-f'hg , 1768 
data hhhi h.jhkt 1 f mtn-f otpgaqbgcgdgegtgq , 1640 
data ghgigjgkglgmgngoqphahbhchdhehfhg,1768 
data h h h i h j h k h 1 h mi i n h oh p i a i b i c i d i e i f i g . 20.2 4 
data i hi i i j i ki 1 i mi ni oi pjajb jc jd je Jt ,ig . 2280 
data j h jij j j k j1j m j n j o j p k a k b k c k d k e k f k a,2536 
data k h kik j k k k1k m k n k o k p1 a1b1c1d1e1f1g.2792 
data Ihliljl ki 11 ml ni ol pmaebecedefieteg , 2280 
data ehei ej ekel emeneoep-f af b-f c-f df ef f f g , 1256 
data f h-f i t j-f knl nmnnnonpoaobacodoeotog , •304EÍ 
data □haiojQkolomonoaoppapbpcpdpeptpg..3816 
data phpipjpkplpmpnpoppkj jdeaneppkjce, 3277 
data i tpnk jpni-f 11 kjaai-f Imk jabif Ihk jai ,2281 
data ifi kk jgai f 1 jcan-f pdkt 1 kcal eppk-f 1 j , 2558 
data cajgppk jaainpdm ji-f jakaadi epncakf ,2213 
data ppi -fpokejanaeheaktpp kéj anaeakepn ,2678 
data i i nao j kgpocamnl nk jcacancppcakt pp ,257.3 
data kgjanackkkpaagcancppemhnmjkjanca,2089 
data ncppkmpdmjmabgnaaokaaaimpdmjkeml,2628 
data maabnapkcaeeofoopdmj kaacnakocaec,2304 
data pggaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,342 
data aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,0 
data aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,0 
data aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,0 
data aaaaaaakaaaacacl ml kcaaigmgigmmk-f , 1285 
data mgmjaapapkknhhacmjcalaademt jmkmj,2163 
data i n jaahm j kai aademgomkm j i -f pa-f hm jcc ,2116 
data naa-f k jkl emdpmkm jemnaat k jki emdpmk , 2030 
data m jdknaa-f k jk jemdpmkmjdl naack jko jn ,2121 
data 1 cm joicamkpbk jaai f mgomp-f m jpacgoe, 2774 
data p jnakmcacl ml emppm jm jbenaanoaaana ,231-3 
data afiqmgemppmjmkemedmkmjanpaa\hkjaa,204c. 
data i -f mgemppm j i npem ji opem j i gpkk jabm-f , 2785 
data mppapmitmmoaaanaabqakjaamjaapahl,2298 
data kaaaimpemjmmpemjpaaolj1 cmjmjcana,2651 
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Mint már a bevezetc5ben említettem, 
nincsenek ,,tiltott karakterek”. Csupán 
egy dologra kell ügyelni: ha a sor szó¬ 
közzel kezdődik (pl. bekezdés vagy (el¬ 
sorolás) a szóközt (SHIFT)-(-(SPACE) 
[CHR$(160)] kombinációval hozzuk lét¬ 
re. Két oka is van ennek: 

a) Ha a stringeket "input # " utasítás¬ 
sal olvassuk vissza lemezről, akkor a 
stringek elején levő CHR$(32) kódok 
,,lenyelődnek”. Emiatt akár képernyőn, 
akár nyomtatón jelenítjük meg a .szöveget, 
az csak az első ,,hasznos” karakterrel 
kezdődik. 

b) A sorkiegyenlítő rutin a CHR$(32) 
kódokat keresi, szükség esetén ezek mellé 
teszi a kiegészítő szóközöket. 

Bármelyik ok önmagában is elront¬ 
hatja a formátumot. 

A fentiek miatt, ha a sorban olyan 
szópár fordul elő, amelynek széthúzása 
rontaná a sor esztétikus megjelenését, 
vagy értelemzavaró lenne, akkor is az em¬ 
lített módszert alkalmazzuk. 

A sor írásakor az SH-6 sorhosszat el¬ 
érve hangjelzést kapunk. 

Egy szövegsort vagy a (RETURN)- 
nel, vagy a sor végigírásával tudunk befe¬ 
jezni. Ez utóbbi esetben hangjelzés fi¬ 
gyelmeztet az új sor megkezdésére. (NB. 
Minden üzenetre hangjelzés figyelmez¬ 
tet!) Csak a szövegsor befejezése előtt tu¬ 
dunk visszalépni az (INST/DEL) billen¬ 
tyűvel. 

Az üzemmódból való kilépési szán¬ 
dékunkat az (F-l)-gyel tudjuk jelezni. A 
válasz egy kérdés: ,,Egészen biztos ben¬ 
ne?” Nemleges válasz esetén ott folytat¬ 
hatjuk, ahol abbahagytuk, egyébként a fő¬ 
menü tér vissza. 

2. A memória megtelt. 

Hibaüzenetet kapunk: ,,A memóriá¬ 
ban nincs több hely! Töröljek?” Igenlő 
válaszra a szokásos visszakérdezés: 
,,Egészen biztos...?” Az újabb igenre 
végrehajtódik egy CLR, a tömbök újradi- 
menzionálása, a változók visszaállítá.sa. 
Ezután az 1. alapeset szerinti módon foly¬ 
tatódik a program. 

,,Nem” válasz után természetesen a 
főmenüt kapjuk vissza. 

3. A tárban szöveg van. 

Ez esetben a fenti üzenetet kapjuk, a 
Töröljek? kérdéssel kiegészítve. ,,Igen” 
válasz esetén a 2. alapesetnek megfele¬ 
lően folytatódik a program. A ,,Nem”et 
követő kérdésre (Sorkiegyenlítés?) vála¬ 
szolva üzenetet kapunk: ,,Folytatva az 
XXX. sortól.” Ezután kiíródik ’á tárban 
levő szöveg utolsó 5 sora, a következő sor¬ 
ban a villogó kurzorral. 
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SZÖVEGELLENŐRZÉS 

Hibaüzenettel is kezxlődhet a rutin: 
„A tárban még nincs szöveg!” „Vissza a 
főmenühöz: (F-l)”. (A második üzenet¬ 
tel majd’ minden üzemmód befejezté¬ 
vel találkozhatunk.) Ha viszont a tár¬ 
ban van szöveg, a pront kiírja a meg 
szabad, valamint a már foglalt szövegso¬ 
rok számát és választ vár;, .Hányadik sor¬ 
tól kéri?” 

Ha 0-val, vagy karakterrel válaszo¬ 
lunk, a főmenübe térhetünk vissza. Ez jól 
jöhet akkor, ha csupán a tár foglaltságára 
vagyunk kíváncsiak. A kiírt maximális 
sor számánál nagyobb értéket nem fogad 
cl a program. A választ, beírása után 
{RETURN)-nel kell bevinni. 

Ha az első oldaltól kérjük a szöveget, 
és van címe az iratnak, a címmel kezdődik 
az irat kiírása. Továbblépni a (CRSR/le) 
vagy az(F-7) billentyűkkel lehet. Vissza¬ 
lépésre a (CRSR/fcl) szolgál. 

A sorközök nem üres sorként jelen¬ 
nek meg, hanem az aktuális sorszámmal, 
megkönnyítve ezzel a szövegben való tájé¬ 
kozódást. A hasábok végét (lapalja) egy 
speciális elválasztó sor jelzi. 

Ha egy sorról az {F-7)-tel lépünk to¬ 
vább, az a sor módosítandó sorként,,véte¬ 
tik nyilvántartásba”. Ily módon ,,cgy me¬ 
netben” 25 sort lehet módosításra ki¬ 
jelölni. 

Mint minden üzemmódból, ebből is 
az {F-l)-gycl lehet kilépni. Amennyiben 
,,bejegyzés” történt a hibanyilvántartás¬ 
ban, a program azonnal a módosító rutin¬ 
ba lép. Ellenkező esetben a főmenüt kap¬ 
juk vissza. 

A módosító rutin a ,.Sorkiegyenlí¬ 
tés?” kérdéssel jelentkezik be, majd újabb 
kérdés következik: ,,Javításkor is?” Vála¬ 
szunktól függően kétféle módon javítha¬ 
tunk. ,,Igen” válasz esetén üres sorba, a 
megszokott módon kell beírni a javított 
szöveget. 

,,Nem” válasz e.setén kiíródik a mó¬ 
dosítandó sor, és felette a ,,tiltott” karak¬ 
terek billentyű kombinációi. Ez esetben 
ugyanis , .input” utasítással történik a ja¬ 
vítás. Annak minden előnyével és hátrá¬ 
nyával egyetemben. Választásunk után 
üzenettel folytatódik a program: ,,A mó¬ 
dosítani kívánt sor száma: XXX”. 

Ezután 5 szövegsor íródik ki, a kö¬ 
zépső (módosítandó) sor inverzben. így 
szövegkörnyezetében és kiemelve láthat¬ 
juk a kritikus szövegsort. A sorok alatt az 
almenü következik: 

Javítás [1] 

Beszúrás [2] 

Sortörlés [3J 

MARAD [4| 

Választás után törlődik az almenü, majd 


a választástól függően alakul a program 
további futása: 

[1] A program karakterbevitelre vár. 

[2] A ,,helycsinálás” befejeztével ki¬ 
íródik újabb 5 sor. A kurzor a kö¬ 
zépső üres sorban várja a beszúr¬ 
ni kívánt szöveget. 

[3] A sortörlés befejeztével a prog¬ 
ram a következő kijelölt sorra lép. 

[41 Azonnal tovább lép. 

Amennyiben az 1. sort is kijelöltük, az 
irat címét is javíthatjuk, törölhetjük, ha 
még hiányzik pótolhatjuk. Az utolsó mó¬ 
dosítási művelet után a főmenüt kapjuk 
vissza. 

FORMÁTUMELLENŐRZÉS 

Nagyon könnyen előfordulhat, hogy 

— nem is valószínűtlen példákat említve 

— egy fejezetcím a hasáb utolsó .sorába 
kerül, vagy netán a hasáb üres sorral kez¬ 
dődik. Az ilyen jellegű — fbrmátumrontó 

— hibák nyomtatás előtti felderítésére 
szolgál ez az üzemmód. Ha még pincs 
szöveg a tárban, hibaüzenetet kapunk. 

A kijelölésnek megfelelően a hasá¬ 
bok első néhány karaktere látható egymás 
mellett úgy, ahogyan azok a nyomtatott la¬ 
pon fognak elhelyezkedni. A sorközök 
ebben az esetben is tartalmazzák az ak¬ 
tuális sorszámot. 

A sortovábbítás a (CRSR/le)-vei 
történik. Az (F-l)-gyel ,,lapozhatunk”. 
Ha elfogyott a szöveg, a főmenü jön 
vissza. 

Jótanács: Mindenekelőtt a kész irat 
szöveghűségét ellenőrizzük, és csak a hi¬ 
bák kijavítása után vizsgáljuk a formátu¬ 
mot. Az észlelt ,.anomáliák” sorszámát 
jegyezzük fel. Ezután sorközök törlésével 
vagy be.szúrásával végezzük el a ,,fazon- 
igazítást”. 

NYOMTATÁS 

Hibaüzenetet is kaphatunk: ,,A tár¬ 
ban még nincs szöveg!” Ha van szöveg és 
még nem nyomtattunk, a printer aktivizá¬ 
lása következik. A további két alapeset le¬ 
hetséges: 

1. Az iratnak nincsen címe. 

Ekkor a kezdő lapszámot kéri a 
program. Ez csupán látszólag ér¬ 
telmetlen kérés. Ha ugyanis 354 
sornál hosszabb iratot készítünk, 
akkor a folytatást új file-ba, cím 
nélkül kell kezdeni. A folyamatos 
lapszámozás csak így biztosítható. 

2. A cím ,,tipográfiájára” vonatkozó 
kérdéseket kapjuk: 
Duplaszélességgel? 

Középre? 

Aláhúzva? 


PROGRAM 

Kiemelt nyomtatás? 

A felkínált lehetőségeket tetsző¬ 
leges kombinációban, — akár va¬ 
lamennyit együtt — választhatjuk. 
Újabb kérdés következik: ,,Folya¬ 
matos nyomtatá.s? Tgen/Nem”. 

A kérdésre adott választól függően 
üzenetet kapunk: 

(Igen) ,,Leporelló nyomtatás.” 
(Nem) ,,Egy lap nyomtatása!” 
Ezután kezd dolgozni a printer. 

A lapnyomtatás végén (a papírvégér- 
zékclő AKTÍV!) tájékoztatást kapunk a 
folytatás mikéntjéről. 

LEMEZKATALÓGUS 

,,No comment!” 

SZÖVEGBETÖLTÉS 

Ha a tárban .szöveg van, üzenetet ka¬ 
punk és egy kérdést a tárban levő szöveg 
törlésére vonatkozóan. Igenlő válasz ese¬ 
tén törlődik a tár. A filc nevében használ¬ 
hatunk "*"-ot. Sikeres betöltés után a 
szövegellenőrző rutinjelentkezik. DOShi- 
baüzenet után pedig: ,Vissza a főmenühöz.” 

LEMEZREMENTÉS 

Ha nincs szöveg a tárban, üzenetet 
kapunk, és vissza a főmenühöz. Egyéb¬ 
ként: A fiié nevét kéri. Ha "*"-ot írunk 
be, akkor a szövegbeírás kezdetén meg¬ 
adott, vagy a filc-ból kiolvasott néven 
menti lemezre a szöveget. Természetesen 
új nevet is adhatunk. 

Ha a filc már létezik, a ..filc cxists” 
üzenet után kérdést kapunk: ,, Felül ír¬ 
jam?” Nemleges válasz esetén: ,.Vissza a 
főmenühöz.” Sikeres lemezművelet után 
a DIR-rutin következik. 

FILE TÖRLÉS 

A fiié nevét kéri. Megvizsgálja a file 
meglétet és típusát. Ha mindezt rendben- 
levőnek találja: ,,Egészen biztos benne?” 
A vála.sztól függően vagy végrehajtás kö¬ 
vetkezik, vagy: Vissza a főmenühöz! 

VÉGE 

,,Egészen biztos benne?”: Nemleges 
válasz esetén: ,.Vissza a főmenühöz!” 
Egyébként pedig meghívja a RÉSÉT 
ROM-rutint. 

Szász Sándor 
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1990 nyarának termése a Prince of 
Persia, vagyis Perzsia hercege címet vise¬ 
lő program. Konkrétan az általános kate¬ 
góriákba nem sorolható be, az akciós és 
ügyességi játékok keveréke. A program 
egy lemez terjedelmű, a számítógép me¬ 
móriájából 1 MB helyet foglal el. Emiatt 
az Amiga 500-as alap kiszereltségben 
nem tudja futtatni. Az általában kékes hát¬ 
térrel rendelkező, grafikailag és zeneileg 
gyengén kivitelezett játék varázslatossága 
a logikai gondolatmenetre, gyors helyzet- 
felismerésre, időérzékre épül. Aki a prog¬ 
ramot elkezdi, bizonyosan több napot fog 
majd a számítógép mellett tölteni. Ahhoz, 
hogy a leírás elkészüljön a játékot apró 
részletekig boncolgattuk, végeredmény¬ 
ben 12 órai videóanalizálás segítségével 
sikerült. 

A program első látásra is kiemelkedő 
elemet tartalmaz, mégpedig az emberi 
mozgás élethű animációs feldolgozását. 
Sajnos a figura irányítása kis.sé nehézkes. 
A játék joystick utasításaira csak későn 
reagál. Ennek köszönhetően sok.szor 
kezdhetjük az aktuális szintet (ahol éppen 
tartózkodunk) elölről. A trainerezés a 
program egy igen fontos kelléke, mivel a 
játék nehézsége miatt, az örök idő és az 
örök energia nélkül végigjátszhatatlan. A 
trainer egy.szerűen töltés közben a mouse 
jobb gombjával aktiválható. Az örök ener¬ 
gia, bizonyos esetekben csak részleges vé¬ 
delmet nyújt. A program 12-1-2 szintből 
áll, a börtön, a palota, a torony részeiből. 
Nézzük röviden a játék történetét. 


A Szultán elutazik. Perzsia ideigle¬ 
nes uralkodója, Jaftár Főlátnok, aki ke¬ 
mény, kegyetlen diktátor. A trón megszer¬ 
zésének csak egyetlen akadálya van, még¬ 
pedig a Szultán lánya. A gyönyörű lányt 
választás elé állítja, vagy elveszi félesé¬ 
gül, vagy meghal. Egy órát kap Jaftártól. 
A hercegnő egyetlen lehetősége szerelnie, 
aki Jaffar jóvoltából börtönbe raboskodik. 
Az ifjút a játékos személyesíti meg, aki¬ 
nek 60 perce van, hogy kiszabadítsa a 
lányt. 

A botkormánnyal a következőképpen 


irányíthatjuk a figurát: Ha a joysticket 
balra húzzuk, az ifjú balra szalad (egysze¬ 
ri futás két lépésnek felel meg), ellenkező 
esetben jobbra. Futás közben az első sza¬ 
kasz végéig irányváltás nem lehetséges. A 
másik lehetőség a lépkedés, amit a tűz¬ 
gomb és a joy bal, vagy jobb irányú moz¬ 
gatásával érhetünk el. Ugrani többféle¬ 
képpen tudunk: helyből, vagyis álló hely¬ 
zetből a joystick sré irányú mozgatásával, 
gombbal, vagy gomb nélkül. Nekifutás¬ 
ból is tudunk ugrani, ha a botkormányt 
balra húzzuk, és futás közben sré irányba 
mozgatjuk. A tűzgombot itt is célszerű 
megnyomni, ez nem minden esetben 
szükséges. Előfordulhat, hogy tél kell 
csimpaszkodni, mászni egy helyre, ilyen¬ 
kor egyszerűen fel lehet nyomni a botkor¬ 
mányt. Ha leereszkedünk pl. egy szintet, 
az ellenkezőt kell tennünk. 

Néhány szakadéknál csak úgy tudunk 
ugrani, ha a tűzgombot nyomva tartjuk. 
Ellenkező esetben lezuhanunk. Az utolsó 
pályák (szintek) valamelyikén a .szakadé¬ 
kot csak nekifutá.sból tudjuk átugrani. Le¬ 
guggolni is egyszerűen lehet, ha a botkor¬ 
mányt magunk télé húzzuk. A tárgyakat is 
így szedhetjük fel (tárgy pl. a kard, üveg 
stb.). A kis üvegek életerőt, a nagy korsók 
maximális életerői adnak. Néha kardoz- 
nunk kell Jaftár embereivel, a kardot a fi¬ 
gura ilyenkor automatikusan veszi elő. Az 
ellenfelünket a következőképpen győzhet¬ 
jük le: ha megvárjuk míg a figura üt, ek¬ 
kor a joyt sré (fel) irányba mozgatjuk, az 
ütést hárítjuk; majd a tűzgomb segítségé¬ 
vel csapást mérünk. Ha az. ütés talált az 
alak hátrább lökődik. Mi is lépjünk egyet 
is üssünk. Nem kell az ellenfél teljes élet- 
erejt megsemmisítenünk. Ha szerencsénk 
van szakadékba, lecsapódó giotin alá, ka¬ 
rókkal felszerelt verembe lökhetjük. 
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A képernyő jobb oldalán alul láthat¬ 
juk a katona energiáját. A számítógép kla¬ 
viatúráját tulajdonképpen nem kell igény¬ 
bevennünk, mégis néhány bilentyű hasz¬ 
nálható. A CTRL R megnyomásakor a 
programot az elsőszinttől kezdhetjük. 
CTRL Q = Quit. A játék SAVE/LOAD 
funkciót is tartalmaz, ami néhány verzió 
kivételével a CTRL G-vel hívható elő. 
Nézzünk néhány olyan lényeges akadályt, 
ami a programban befolyásolhatja a to¬ 
vábbjutást. 

A legnagyobb számban a vasrács for¬ 
dul elő a szinteken. Majdnem minden 
helységben található egy, vagy több ajtó¬ 
nyitó k(51ap, amire ha rálépünk felhúzódik 
a rács. Az ajtónyitó, vagy rácsnyitó kőlap 
mindig kiemelkedik a többi közül. Van¬ 
nak kőlapok amelyek a rács mellett köz¬ 
vetlenül találhatók, ha erre vagy ezekre 
rálépünk, a rács lecsukódik. Olyan kőla¬ 
pokkal is találkozhatunk, amelyekre ha 
rálépünk lezuhannak. A törmelékek néha 
egy ajtónyitó, vagy rácszáró kőlapra zu¬ 
hannak. Az első esetben a rács nem fog 
lecsukódni. Ilyen lehetőség másképpen is 
elérhető, ha egy katonát éppen a nyitón te¬ 
szünk ártalmatlanná. A másik zavaró té¬ 
nyező az aljzatból előbukkanó karók, ha 
belerohanunk, felnyársalódhatunk. Lép- 
kedéssel, lefékezéssel ez az akadály is ki¬ 
kerülhető. A magasabb helyekről ne na¬ 
gyon ugráljunk le, ha két emeletet zuha¬ 
nunk meghalhatunk, vagy karókba csa¬ 
pódhatunk. 

A lecsapódó vasfogak nem jelenthet¬ 
nek nagy akadályt, ha aprókat lépünk és 
az elemek záródása után próbálunk átjut¬ 
ni. Ha egymás után sok vasfog található, 
lépéskor csak az aktuális elemre figyel¬ 
jünk. A plafonon lehetnek olyan kőlapok, 
amelyeket ha megmozgatunk leesnek. A 
mozgatáshoz egyszerűen fel kell ugrani. 
Akadályt jelenthet a leeső kőlap is, ha a 
fejünkre zuhan. Ezt a következőképpen 
kerülhetjük ki: a felugrás után (amikor 
már mozog a kőlap) rögtön guggoljunk le. 
A keletkezett nyíláson fel lehet mászni. A 
katonák sokszor okozhatnak bosszúságot 
is, amikor belelöknek egy karóba, esetleg 
egy vasfogba. Ellenfeleink lehetnek még 
csontvázak is. 

A negyedik szinten jelenik meg a tü¬ 
körképünk, aki három szinten is megtré¬ 
fál. Tűlajdonképpen a felmerülő akadá¬ 
lyok közül ezek jelenthetnek nagyobb 
problémát. A játék szintjeit a következők¬ 
ben részletesen fogjuk leírni, ezért aki a 
programot végig szeretné játszani, az írást 
csak segítségként használja. A szintek a 
következők: 


1. Az első képnél vagyunk, ahol balra 
fennt egy rács, mellettünk két égő fáklya, 
jobbra alul és felül egy-egy út látható. In¬ 
duljunk el jobbra, ereszkedjünk le az alsó 
útra, fussunk jobbra. Két kőlap (a harma¬ 
dik) elkezd mozogni, és leesik. Másszunk 
le a keletkezett nyíláson. Fussunk balra, 
majd másszunk fel egy szintet. Szalad¬ 
junk balra, és ugorjuk át a szakadékot. 
Lépjünk a rácsnyitóra (a szakadék mögöt¬ 
ti kőlap), és fussunk balra a rács alatt. 
Ereszkedjünk le egy szintet, szaladjunk 
jobbra, lépjünk rá a rácsnyitó kőlapra. 
Nekifutásból ugorjuk át a szakadékot. 
Másszunk tel és fussunk balra. 

Ereszkedjünk le egy .szintet, és sza¬ 
ladjunk balra. Nekifutásból ugorjuk át a 
kőlappal fedett szakadékot. Másszunk fel 
egy szintet. Fussunk balra, és helyből 
gombbal ugorjuk át a szakadékot. Szalad¬ 
junk balra és ereszkedjünk le két szintet. 
A csontváz mellett találhatjuk a kardot. 
Vegyük tél, és menjünk vissza a második 
képhez. Fussunk jobbra, és küzdjünk meg 
az őrrel. Menjünk ismét jobbra, ugorjunk 
tel a bal oldalon levő kőlapra, az ajtó ki¬ 
nyílik. 

1/1. Ez egy plusz szint. Itt csak üvegek 
vannak, de nem mindegyiket szabad meg¬ 
inni. A szint elején kiíródik az a betű, 
amit valamelyik korsón láthatunk. Ez le¬ 
het C, G, A stb. Az aktuális betűvel jelzett 
korsót szabad felvennünk. Az ital elfo¬ 
gyasztása közben az ajtó kinyílik. 

2. Induljunk el balra, és kardozzunk 
a katonával. Fussunk balra a karókig. 
Lépkedjünk át rajtuk, és szaladjunk ismét 
balra. Másszunk fel a felettünk levő szint¬ 
re (emeletre), és gombbal ugorjunk át a 


másik oldalra. Másszunk fel két emeletet, 
és fussunk balra. Az őr megsemmisítése 
után nyissuk ki a rácsot és másszunk fel. 
Szaladjunk balra, nyissuk ki a rácsot, és 
fussunk tovább. Kardozzunk a katonával, 
menjünk balra (az üvegeket ne szedjük 
fel) és másszunk tél. Lépkedjünk balra, és 
helyből ugorjunk át a szakadékon, öljük 
meg az őrt. Fussunk balra. 

A felső emeleten találhatunk egy kor¬ 
sót, ami extra energiát tartalmaz. Ezt nem 
szükséges felvenni ha trainer verzióval 
játszunk. Szaladjunk balra, addig amíg 
egy szakadékhoz nem jutunk. (Vigyáz¬ 
zunk a karókra!) A szakadékot helyből 
ugorjuk át. Másszunk fel két emeletet, és 
az előbbi módszerrel ugorjunk vissza. 
Fussunk jobbra, másszunk fel, és kardoz¬ 
zunk az őrrel. Lépjünk az ajtónyitóra, és 
ugorjunk vissza. Szaladjunk az ajtóig 
jobbra. 

3. Először jobbra fussunk, és mász- 
szunk tél két emeletet. Ugorjunk át. 
Másszunk fel három szintet és ugorjunk át 
a szakadékokon, majd lépjünk a nyitóra. 
Ezt ismételjük meg, gyorsan ugorjunk át 
a szakadékokon. Szaladjunk balra, neki¬ 
futásból ugorjuk át a .szakadékot, és fus¬ 
sunk balra, majd az előző ugrást ismétel¬ 
jük meg (gombbal). Nehezen tudunk csak 
megkapaszkodni a rács alatti kőlapon. 
Másszunk tél, és szaladjunk balra. Mász- 
szunk fel a szemközti rácshoz és nyissuk 
ki. Menjünk balra, és óvatosan lépjünk át 
a vasfogon, majd ereszkedjünk le három 
emeletet. Fussunk jobbra és lépjünk a kő¬ 
lapra, ami az alattunk levő ajtót nyitja ki. 
Másszunk fel három emeletet, és men¬ 
jünk jobbra addig, ameddig egy csontváz- 
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zal nem találkozunk. A kardunkkal lökjük 
le a szakadékba a csontvázai, majd mász- 
szunk le. Ismét lökjük le. Szaladjunk bal¬ 
ra az ajtóig. 

4. A palotában vagyunk. A jobb olda¬ 
li nyitóra lepjünk rá, és fussunk balra. 
Ereszkedjünk le két emeletet, és menjünk 
balra. Kardozzunk a katonával, és ugor¬ 
junk át a szakadékon, majd ismét fussunk 
balra. Másszunk fel a felső szintre, a má¬ 
sik oldalon le, és lépjünk a rácsnyitóra, 
majd az előzőket ismételjük meg. Szalad¬ 
junk vissza addig, ahol az őrrel harcol¬ 
tunk, és ugorjuk át a szakadékot. Men¬ 
jünk jobbra és ugorjunk át a felhúzott rács 
alatt, majd szaladjunk jobbra és ismét 
ugorjunk egyet. Másszunk le, majd fel. 
Óvatosan lépjünk át a vasfogon, és küzd- 
jünk meg az őrrel. Másszunk jobbra, kar¬ 
dozzunk az őrrel, majd ismét menjünk 
jobbra. Másszunk fel és fussunk a szaka¬ 
dékig, majd ereszkedjünk le egy emeletet. 

Lépjünk át a vasfogon, nyissuk ki az 
ajtót, másszunk vissza. Szaladjunk balra 
és ugorjunk át nekifutásból a tükrön. Itt 
láthatjuk a tükörképünket, aki még sok 
bajt fog nekünk okozni. Szaladjunk vissza 
addig, ahol az ajtó található. 

5. Jobbra, fel. Kardozzunk az őrrel, 
lépjünk jobbra, és másszunk fél két eme¬ 
letet, majd még egyet. Ha jobbra me¬ 
gyünk, a felső szinten egy korsót látunk. 
Ezt sajnos nem tudjuk megszerezni, mivel 
a tükörképünk elviszi előlünk. Tehát ne 
jobbra, hanem balra menjünk. Nekifutás¬ 
ból ugorjunk át a másik oldalra, ereszked¬ 
jünk le. Menjünk balra és öljük meg az 
őrt. Ereszkedjünk le és nyissuk ki a rá¬ 
csot. Szaladjunk balra, és küzdjünk meg 


az őrrel. Ugorjunk át a szakadékon. Innen 
már egyszerűen el tudunk jutni az ajtó ki¬ 
nyitójáig. 

6. Lépkedjünk balra (nyitó, karók), 
ugorjuk át a szakadékot. Menjünk balra és 
küzdjünk meg az őrrel és verjük le a .sza¬ 
kadék feletti kőlapot. Fussunk balra, 
ugorjunk. Tükörképünk egy hatalmas 
szakadék mellett áll. Helyből ugorjunk 
(gombbal), egy félelmetes zuhanás után, 
éppen hogy megtudunk kapaszkodni. 

7. Ismét a börtönben vagyunk. Mász- 
szunk fél, forduljunk meg és ugorjunk át 
(gombbal) a másik oldalra. Szaladjunk 
jobbra, küzdjünk meg az őrrel, lépjünk át 
a vasfbgon. Fussunk jobbra és nekifutás¬ 
ból ugorjuk át a kőlappal fedett szakadé¬ 
kot, majd lépkedjünk jobbra. Ugorjunk 
fel, és mozgassuk meg a plafont fedő kőla¬ 
pot. Más.szunk fel a keletkezett nyíláson. 
Fussunk jobbra (vasfog, katona), majd 
ereszkedjünk le egy szintet. Ismét halad¬ 
junk jobbra. Lépjünk a rácsnyitóra. Men¬ 
jünk át a rács alatt, lépjünk a második rács 
nyitójára, majd a következő kőlapra. 
Helyből ugorjunk (karók, rácszárók). 
Szaladjunk jobbra, lépjünk a három nyi¬ 
tóra, és ereszkedjünk le (gombbal kapasz¬ 
kodunk) két emeletet. 

Menjünk balra. Ugorjunk át két ki¬ 
sebb tüskés szakadékot, lépkedjünk át a 
karókon. Másszunk fel három szintet, 
szaladjunk jobbra, felmászás után küzd¬ 
jünk meg az őrrel. Ereszkedjünk le két 
emeletet (vasfogak), majd fussunk balra. 
Nyissuk ki az első rácsot, lépjünk a máso¬ 
dik kőlapra, és helyből ugorjuk át a rács¬ 
zárót. Szaladjunk balra. A szakadék előtti 
nagy korsót vegyük fel, és igyuk meg a 


benne levő italt. A felcsendülő zene köz¬ 
ben ugorjunk le a mélységbe. Nyissuk ki 
a rácsot, majd az ajtót. 

8. Másszunk fel, menjünk balra (őr), 
és helyből ugorjunk át (gombbal). Eresz¬ 
kedjünk le, ugrás le. Szaladjunk jobbra 
(vasfog, karók, katona). Nekifutásból 
(gombbal) ugorjuk át a szakadékot, mász- 
szunk fel két emeletet, és helyből (gomb¬ 
bal) ugorjuk át a szakadékot. Ha tovább¬ 
megyünk, balra guggolgatással halad¬ 
junk, mert különben az őr megölhet. 
(Guggolgatás = a botkormány le-l-sré irá¬ 
nyú mozgatása a tűzgomb folyamatos nyo- 
mogatása közben.) 

A követkcz.őket gyorsan kell végre¬ 
hajtanunk; nyitó, ugrás (gombbal), vasfo¬ 
gak, nekifutásból átugrás (kétszer). Ha¬ 
ladjunk balra (nyitó, vasfog, őr, záró). 
Ugorjuk át (gombbal) és lépkedjünk át a 
vasrácsokon, nyissuk ki az ajtót. Ha visz- 
szamegyünk, a rácsot zárva találjuk. Vár¬ 
junk! Hamarosan megérkezik a hercegnő 
kisegere és rá.szalad az ajtónyitó kőlapra. 
Ereszkedjünk le, és fussunk balra 
(karók). 

9. Menjünk balra (vasfog, rács) és 
másszunk fel két szintet. Forduljunk meg 
és ugorjuk át a szakadékot. Szaladjunk 
jobbra (vasfog, katona). Másszunk fel öt 
emeletet és ugorjuk át a kőlapokkal fedett 
szakadékot (őr, ajtónyitó). Hasonlókép¬ 
pen menjünk vissza, ereszkedjünk le két 
szintet, szaladjunk balra. Az oszlopok 
mellett a kőlap megmozdul és ráesik egy 
nyitóra. Ugorjunk és fussunk jobbra. 

Más.szunk fel öt emeletet, ugorjunk 
át és nyissuk ki a rácsot, majd haladjunk 
balra (katona). Ugorjunk át, és másszunk 
fel két szintet, és nekifutásból ismét ugor¬ 
junk át (gombbal) a rácsnyitó kőlaphoz. 
Ereszkedjünk le, és szaladjunk balra. Ha 
átugorjuk a vermet és a felső úton me¬ 
gyünk tovább, három korsót találunk, de 
csak a középsőt szabad meginni. 

Tehát ereszkedjünk le öt szintet. Lép¬ 
kedjünk át a vasfogon, nyissuk ki a szem¬ 
közti rácsot, a felső rácsot húzzuk fel. 
Másszunk fel az említett rácshoz, fussunk 
jobbra (vasfog, katona). Lépjünk az ajtó¬ 
nyitóra és ereszkedjünk le. 

10. Jobbra induljunk (őr, nyitó). Ne 
másszunk fel, hanem fussunk jobbra. 
Most másszunk fel egy szintet, és lépked¬ 
jünk át a vasfogakon. A második vasfog 
előtti kőlapról ugorjuk át a rácsnyitót. 
Menjünk jobbra fel. A vasfog előtt moz¬ 
gassuk meg a mennyezetet, és másszunk 
fel a keletkezett nyfláson. Nagyon gyor- 
■san szaladjunk balra. A leeső kőlappal mi 
is lezuhanunk (őr). Ezen a szinten men- 
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jünk balra (nyitó, záró). Fel (katona), 
majd a folyosó végén mozgassuk meg a 
plafont. Ha felmászunk a keletkezett nyí¬ 
láson, megtaláljuk a rácsnyitót. Erc.sz- 
kedjünk le és szaladjunk balra az út vé¬ 
géig. Nyissuk ki az ajtót (katona). 

11. Fel, majd jobbra. Nekifutásból 
ugorjunk át (gombbal). Az oszlopoknál a 
mennyezetet mozgassuk meg, és mász- 
szunk fel a keletkezett nyíláson. Menjünk 
jobbra, ha leestünk vívjunk meg az őrrel 
(vasfog). Fussunk jobbra. Az oszlopoknál 
a plafont meg tudjuk mozgatni. Másszunk 
fel a nyíláson és .szaladjunk jobbra. A le¬ 
eső törmelékek hatástalanítják az ajtózá¬ 
rókat. Fussunk balra (ugrás, nyitó), majd 
fordoljunk vissza és menjünk jobbra (le¬ 
eső kövek, lecsukódó rács). Másszunk fel 
és kardozzunk az őrrel. Nekifutásból 
ugorjunk egy hatalmasat. A padló labilis, 
csak nagy nehezen tudunk megkapasz¬ 
kodni. Fel (katona), le (nyitó). Fussunk 
vissza a kijárathoz. 

12. Induljunk cl jobbra, menjünk át 
az alagút alatt. A következő toronyszerű 
képződményen másszunk fel két emeletet, 
lépjünk hármat jobbra, és forduljunk 
meg. Másszunk fel három emeletet, majd 
a tüskéken áthaladva nekifutásból ugorjuk 
át a hatalmas szakadékot. Célszerű a tűz¬ 
gombot használni. 

Másszunk fel három emeletet, és ne¬ 
kifutásból ugorjunk át az első, a második, 
majd a harmadik toronyrészletre. A to¬ 
rony belső járatában vagyunk (egy csont¬ 
vázat, és két égő fáklyát látunk). Mász- 
szunk fel egy szintet és mozgassuk meg a 
plafont. A keletkezett nyíláson más.szunk 
fel még két szintet. Lépkedjünk balra, és 


helyből ugorjuk át a szakadékot. A tűz¬ 
gomb használata itt is lényeges! Mász- 
szunk fel egy emeletet és gyorsan fussunk 
balra. A két torony közötti szakadékot itt 
is, ugyancsak nekifutásból tudjuk átugra¬ 
ni. Más.szunk fel négy emeletet, és lép¬ 
jünk rá a mellettünk levő rácsnyitóra. 


McDonald’s óriási heccre invitálja a 
nagyérdemű gyereksereget. Fődíjként 2 
, ,Royal TS” és egy 9-es csomagolású csir¬ 
ke integet! Keehup-pal és Mayonnaise 
szósszal felfegyverkezve. Egy pillanatra 
sem habozik a két egycsapásra világhírű¬ 
vé vált McDonald’s hős Mick és Mack 
hogy ezen a versenyen részt vegyenek. 
Egy minta.szerű ,,mászás-futás” .során 
egyik a két tornacipős hős közül rágógu¬ 
mit rágva több plattform által díszített je¬ 
lenétén keresztül keresi a kis McDonald’s 
jelképet M-t. 

Az utazás színes világokon keresztül 
zajlik, mint a ,,rossz-világ” egy mágikus 
erdő vagy toxi-város, egy riasztó nagyvá¬ 
ros. A plattformok természetesen a kör¬ 
nyezethez illenek. így fut a játékos zöld 
mezőkön, sötét poklokon át vagy szökdé¬ 
csel a fákra, ill. az építkezési állványok 
között. Csak mikor Mick és Mack megha¬ 
tározott számú, bonyolultan elhelyezett és 


Ereszkedjünk le egy .szintet. Lépjünk 
balra négyet, forduljunk meg és nekifu¬ 
tásból ugorjuk át a szakadékot. Szalad¬ 
junk balra a másik toronyig. Más.szunk fel 
egy szintet. Mozgassuk meg a faltól szá¬ 
mítva az ötödik kőlapot. Más.szunk fel a 
negyedik kőlapra és nekifutásból ugor¬ 
junk át a másik oldalra. Fussunk balra. 
Másszunk fel egy szintet. Menjünk balra 
(két kőlap leesik), ekkor megjelenik a tü¬ 
körképünk. A kardot a gép automatikusan 
előveszi (így a hasonmásunk is), ha har¬ 
colunk magunkkal, hamarosan megha¬ 
lunk. 

A következőket tegyük; a kard előhú¬ 
zása után rögtön tegyük is el, és fussunk 
balra a tükörkép felé. Érdekes dolog törté¬ 
nik, aminek köszönhetően nekifutásból 
beleugorhatunk a szakadékba. Egy kőlap¬ 
ra ugrottunk, és evvel a játék egy plusz 
szakaszába értünk. Ez egy nagyon könnyű 
rész, lezuhanó kőlapokat kell kikerül¬ 
nünk, de itt vár a fő ellenség, akiről bő¬ 
vebben a játék kedvéért nem kívánunk 
szólni. A legutolsó szint már nem tartozik 
az előzőhöz, ez az előbbinél egy kicsivel 
egyszerűbb. Sok sikert kívánunk. 


nehezen elérhető szimbólumot összegyűj¬ 
tött, akkor nyomulhat a szint végéhez — 
és egyenesen személyesen Rónáid McDo¬ 
nald karjaiba, aki a célzászlót lengeti 
nekik. 

Buta módon néhány különösen undo¬ 
rító teremtmény életeéljának tekinti-e 
gyűjtési akció megakadályozását. Legye¬ 
nek bár csapkodó Ichtyosauriusok, sze¬ 
meteskukák vagy húsevő növények egy 
mindenképpen közös bennük: mindegyik 
mindenféle veszélyes tárggyal dobálód- 
zik. Gyakran a muníció zöld és nyákos és 
egészen undorító foltokat csinál és Oriel 
Ultrával sem távolítható cl. Mivel Mick és 
Mack ezt tudja és csontjukig hatol a féle¬ 
lem így minden egyes találkozással renge¬ 
teg energiát ve.szítenek életerejükból. Pi¬ 
ros szívek gyűjté.sekor felfrissülnek 
ugyan, de jobb félni, mint megijedni. 
Gyakran ugyan elég, ha az ember a dühös 
jószágot megérinti, mert ezek egy tiszta 
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ifjúval történő bőrkontaktus (érintkezés) 
kapcsán jelentősen veszítenek életked¬ 
vükből. 

Egyébként időről időre feltűnnek a 
játék Sega-Versiói (Mega Drive, Master 
Systems, Game Gear) ez nem csoda, mi¬ 
vel az Amiga-Versióban terjedelmes beál¬ 
lítási menüt integráltak. Maga a zene és 
hangmenü sem hiányozhat. Itt minden 
hallható, ami a játék során adatbevitelre 
kerül. 

Úgy 3000-nél már bizonyos bukások¬ 
ról lemondhatunk (?), amely egyébként az 
AMIGA 1200 e.sctébcn érvényes! Akkor 
.sem, ha a játék 10 perc alatt töltődik. 



Morpheus a görög álomisten és az al¬ 
vásisten fiy Hypnos a XX. században sok¬ 
féle felfogást élt át. így történt, hogy az 
Ópium fő alkotóelemét Morfiumra ke¬ 
resztelték, mivel ez átalában fájdalom- 
csillapító hatású és erős víziókat okoz. 

A morfológia, mint névrokon a dol¬ 
gok alakjával és viselkedésével foglalko¬ 
zik. így alakult ki az el.ső komputerjáték, 
mely a Morpheus nevet viseli. 




Peter Johnson a kezdeti idők Arka- 
noid-, Wzball-, és Robocop forgalmazója 
a Milleneumkor a Morph-val debütált. 

Parányi Bob nagybácsikájával tengeti 
napjait és nagyon segít a zseni Hirnisch- 
malznak Telepőrt gépe elkészítésében. 
Mikor a gép végre elké.szül és működik. 
Bob is ki akarja próbálni és kegyetlen 
vége lesz: Molekulái tervszerűen szétes¬ 
nek és már éppen raknák össze, amikor 
egy villám belevág a gépbe és az darabjai¬ 
ra esik szét. A sajátos köztes molekulák¬ 
ban dimenzók vannak. Bob kénytelen 
ös.szegyűjteni a gép részeit és e célból 


négy különböző golyóvá átalakítani, ill. 
morfálni: Víz-, gumi-, felhő- és Bowling- 
golyóvá. 

24 szinten kell Bobnak a golyókat a 
bizonyos idő alatt legyőzni és csak egy 
szinten belül korlátozva gyakran változ¬ 
tatni. Sebességtesztek mellett a játékos 
helyenként taktikai meggondolásokat al¬ 
kalmaz. Útközben összetalálkozik (ütkö¬ 
zik) kártevő idegen műszerekkel, mint pl. 
tüskékkel, ventilátorokkal, melyek a tu¬ 
lajdon halálukat a golyók mindenkori ál¬ 
lapotától teszik függővé. Mindazonáltal 
nemcsak mogorva készülékekkel kerül 
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érintkezésbe, hanem segítőkészekkel is; 
kis extrák mellett kiegészítő átalakulások 
sodorják Bobot, légfúvókák és csövek se¬ 
gítik továbbjutását eldugott Bonus-Te- 
rekbe. A legfontosabb a tanszfbrmátorok, 
melyek őket automatikusan egy másik 
elemi golyócskává változtatják. Csak 
ügyes trafók használatával lehet a legtöbb 
szintet feloldani. Akinek ez nem sikerül 
az örül a véget nem érő folytatásnak. 



Bizonyára mindenki találkozott már 
nagyapáink egyik kedvenc játékával, a 
Tili-tolival. Aki nem ismerné erről a név¬ 
ről, annak is biztos beugrik a következő 
pár sor átfutásakor. Általában 4x4 kis la¬ 


pocskából áll — ez lehet fa, vagy műanyag 
— és egy keretből, ami összefogja, hogy 
ne essen szét és megakadályozza az esetle¬ 
ges türelmetlenségből adódó visszaélése¬ 
ket. 


A lényege, hogy a lapocskákra rajzolt 
ábrát, szimsort, esetleg szöveget jól 
összekeverjük és megpróbáljuk kirakni 
egy hiányzó lapocska segítségével. 

Ezt a játékot már kipróbálhattuk a 
TV2-n, de aki nem szereti a nyilvános.sá- 
got, vagy nem sikerült telefonálnia, az 
most kipróbálhatja C64-en is. 

A játék egyszerű, 15 db számot kell 
a megfelelő sorrendben kirakni, miután a 
gép kellőképpen összekeverte azokat. Túl 
sokat nem gatyázhatunk, mert a képernyő 
alján mászkáló kedves jószág ugyan csiga, 
de biztosan futóedzéseket vett, mert szin¬ 
te robog a cél felé, ami neki pihenőt, ne¬ 
künk viszont a játék végét jelenti. Ha sike¬ 
rül idő előtt kiraknunk a számsort, atlé¬ 
tánk ugrálásával fejezi ki örömét, hogy 
nem kell tovább,,futnia”. A kényelmeseb¬ 
bek választhatnak örökidőt, így csigánk 
,,helybenfut”. 

Az egyes pályák a számsorok variá¬ 
cióival tarkul, ami egy idő után kifakul, 
sőt monoton lesz. Ha a siker után kapnánk 
valamilyen szép képet, akkor megéri a fá¬ 
radozást, de így egy cseppet unalmassá 
vált. 

Viszont a jó zene, ami nem őrjítő 
húsz perc múlva sem, a borzasztóan 
klassz háttér és a kitűnő játszhatóság kár- 
pótól egy ideig ezért a kis csekélységért. 

A programot az A-SYSTEM írta. 

BBEE 
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Ebben a kitűnő játékban melyet az 
LK Avalon esapat írt, a II. vilgháború ide¬ 
jére képzeljük magunkat. Az akkori Né¬ 
metországban különböző titkosfegyverek 
tervezése folyik. Hősünk azt a feladatot 
kapta, hogy ellopjon egy ilyen tervet a 
hozzátartozó műszaki leírással együtt. 
Ezt egy többszintes földalatti betonbun¬ 
kerben kell 10 darabból összeszedni a do¬ 
kumentummal együtt és a bunkeren adott 
helyre vinni. Hogy ez ne legyen ilyen egy¬ 
szerű arról a programozók messzemenő¬ 
kig gondoskodtak. Elhalálozásunk akár 
egyetlen hiba miatt is bekövetkezhet, ami 


9 tervdarabkánál már-már a mosdatlan 
szavak használatát teszi kilátásba. 

Halálesetek: 

Elfogy az ennivaló. Ezt egy csirke- 
eomb szimbolizálja. Elfogy az innivaló. 
Ez egy csésze kávé alatti .számból derül ki 
(a kajánál is). Kilencvenkilencről nullára 
redukálódik mindkét érték. Mivel drink¬ 
bárt és gyorsbüfét nem találtam sehol, 
kénytelen voltam beérni a termekben 
megbúvó combokkal, kávékkal. Ezeket 
nekünk hagyhatták itt mert az egész játék¬ 
ban egyetlen egy élő emberrel, de még ha¬ 
lottal sem találkoztam, csak húsz cm ma¬ 


gas forgó kis bosszúságokkal, amivel ha 
testi kontaktust létesítünk energiánk roha¬ 
mosan fogyni kezd. Tehát az ennivaló rej¬ 
télye megoldatlan. Az meg abszolút non- 
szen.sz, hogy az ajtókat kulcsrazárják 
ugyan, de gondoskodnak a kulcsokról, 
nehogy ne tudjunk valahova bemenni. Ezt 
is nyilvántartja a program (kulcs ikon). 

Egy apró kellemetlenség is társult az 
ingyenkonyhához. Néhány helyen sétál- 
gatásunk egy sortűzzel ér véget. Persze 
kivédhetjük az ólommérgezést, ha az ér¬ 
zékelőket egy ideig kikapcsoljuk a falon 
levő szerkezettel. 

Viszont jó hír, hogy emberünk akár¬ 
milyen magasról leugorva .sem hal meg. 

A játék a következő billentyűket 
használja a Joy-on kívül: 

FI: abort 

F3: zene/hanghatás 

F5: az eddig összegyűjtött dokumen¬ 
tumokat nézhetjük meg 

F7: pau.se. Hősünk egy cigarettára 
gyújt. 

A játék használhatósága tökéletes, 
grafikája nagyon jó, a zenét meg minden¬ 
ki kikapcsolhatja, ha már unja. Az animá¬ 
ció iszonyatosan jó. A dohányzás, a füst, 
a mozgás, sőt a hányás ha emberünkkel 
több csirkét eszünk a kelleténél, egysze¬ 
rűen marha jó. 

Egyedüli hiányosság, hogy a játékos 
semmi tájékoztatást nem kap feladatáról, 
így a hangulat kicsit hűvös. 

Egyébként egy nagyszerű mászkálós 
program lövöldözés, emberirtás, erő.szak 
nélkül. 

BBEE 



ANDROMEDA produkció. Ez egy 
igazi norvég zenelemez. Igen apró ré.szle- 
tekig kidolgozott. A zenék, képek, srol- 
lok külön menüben állítgathatók. A vek¬ 
torgrafikai megoldások Mr. Hydc, a gyö¬ 
nyörű picture-ök Fairfax nevéhez fűződ¬ 
nek. A demó kilenc dallamos zenét tar¬ 
talmaz. 
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Az MPS 1230-as nyomtató módosítása 


Az MPS 1230-as típusú mátrixnyomtató a COMMODORE 
cég egyik legjobban sikerült gyártmánya. 

Nemcsak a C-64-hcz használható, hanem az egyéb számító¬ 
gépekhez is! 

A gyakori használat során azonban néhány apróbb problé¬ 
mát fedeztem fel. 

Az alapbeállításban (értsd: szállítási helyzet) a fej tűinek 
ütéserőssége nagyon nagy. Előnye, hogy az ún. Sirály papírból 
jó (pl.: Pelikán Ultrafilm 10) indigóval akár három (!) példányt 
is átvisz gond nélkül (miközben a precíz mechanika jóvoltából 
a lapok nem csúsznak el). Ennek az a hátránya, hogy gyakori 
(napi egy-másfél órai) használat után a kazettában lévő szalagot, 
annak összehegesztése mentén, kilyukasztja. Nagyon kellemet¬ 
len, miközben — mondjuk — levelet írunk. 

A fenti hibát szervizben tudják elhárítani, de sokpéldányos 
másolás esetén nem érdemes. 

Szerezzünk be inkább tartalékba: GR.673 típusú festékka¬ 
zettát. Ennek ismert változata az OLIVETTI DM100 GR.673. A 
eélnak bőven megfelel, és olcsóbb mint az eredeti COMMO¬ 
DORE! 

A kazetta házi töltését NEM ajánlom; mert, ha rosszul rak¬ 
juk vissza a szalagot: 1. megszorul a mechanika, 2. elszakad a 
szalag! 

A másik probléma, amely a másfél éves — fokozott — hasz¬ 
nálat során felmerült: 

A kijelzőegység alatti ,,billentyűk”: fóliaalapú membrán¬ 
billentyűk. 

Előnye: olcsó. 

Hátránya: kilyukad. 

Nálam is erre a sorsra jutott a gép (természetesen egy fontos 
levél közepén, este 10-kor). A következőképpen lehet ezt elhá¬ 
rítani: 

Anyagszükséglet: villogó LED (piros) 2 db 
zöld LED 1 db 

mikrokapcsoló 3 db 
szalagkábel (10 erű) 0,2 m. 

A printert csatlakoztassuk le a hálózatról és a C-64-ről. 

Vegyük le a traktort a lapvezetővel együtt. 

Húzzuk le a lapbefűző gombot. 

Fordítsuk fel, majd a — most már — jobb oldalt található 
fülecseket egy kisméretű csavarhúzóval pattintsuk ki. Ugyanezt 


a baloldalon megismételve, a printer világos teteje könnyen leve¬ 
hető. (Ne erőltessük, nehogy a laprögzítő kar eltörjön!) 

Az alaplap bal felső sarkán lévő szalag-NYÁK-kábelt fino¬ 
man felfelé húzzuk le. Ezután a gép két részben van, a tetején 
a kijelző-l-vezérlő panel, aljában a többi. 

A kijelzőpanelt pattintsuk ki. 

Plexiből vágjunk egy ugyanolyan méretű darabot. Ebbe 
könnyedén ,,bepakolhatjuk” az ábra szerinti sorrendben az al¬ 
katrészeket. 

Fentről lefelé: 

LOCAL: villogó piros LED, azt jelzi, ha a C-64 még nincs 
bekapcsolva. 

ÓN: zöld LED: a printer bekapcsolt állapotát jelzi. 

FAILURE: villogó piros LED, a papír helyzetét jelzi (nincs 
papír, V. a BE (= LOCAL) gomb nincs benyomva). 

LOCAL: mikrokapcsoló, bekapcsol, ha van papír. 

LINE FEED: mikrokapcsoló, 1 sort emel. 

FORM FEED: mikrokapcsoló, teljes lapot dob. 

(A fenti LED-eket a bordázott részre, a kapcsolókat a bal 
alsó sarokba tettem, így könnyebben kezelem.) 

A vezeték bekötését a rajz alapján hajtsuk végre, majd egy 
próbaüzem következzen. 

Ha minden jó = a tetőrész visszapattintható. (Javaslom a fel¬ 
iratozást újra megoldani!) 

A hibátlan üzem esetén: 

— bekapcsolás után a két piros LED villog, a zöld ég, 

— a C-64 bekapcsolása után a felső kialszik, csak az alsó 
villog (a zöld jelez), 

— a papír befűzé.se (és a LOCAL = BE kapcsoló megnyo¬ 
mása) után a piros LED-ck nem villognak, 

— ha a papír kifogyott, az alsó piros LED villogása jelzi azt. 

A printer kezeléséhez néhány tanács: 

— havonta porszívózzuk ki, 

— másolópapírt használjunk (ez nem porzik), 

— jó minőségű indigóval (lásd fent) dolgozzunk, 

— tartalékkazetta ^töltve is megfelel) legyen kéznél, 

— a szereléseket ARAMTALANÍTOTT gépen, KISTEL¬ 
JESÍTMÉNYŰ pákával végezzük. 

A printer a fentieket meg fogja hálálni! 

Jó munkát kívánok: 

Varsányi Gábor 
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Commodore újságok 
1986—90-ig eladók 30 
Ft/példányonkénti áron, 
együtt 20 Ft/db. Nagy Pé¬ 
ter, 1056 Budapest, Mol¬ 
nár u. 20. 

C-64-esek figyelem!! Va¬ 
donatúj 2 oldalas lemezek 
50—90 Ft közötti áron el¬ 
adók (pl.: NONAME, 
BASF, 3M stb.). Minél ha¬ 
marabb írj, mert korláto¬ 
zott számban van! A borí¬ 
tékra írd rá „lemezek”. 
Papp Mihály, 4034 Debre¬ 
cen, Kerecsen u. 37. 

Keresem C-64-re a CA- 
TALYPSE, az R-TYPE és 
a STRATOFIGTHER cí¬ 
mű programok magnós 
változatát megvételre vagy 
cserébe. Szilágyi Róbert, 
3300 Eger, Vers Péter u. 
9. fszt. 3. 

C-64 és C+4 kazetták 200 
Ft/db, lemezek 50 Ft/db 
áron! Listát küldök. Cser- 
náth Zoltán, 1171 Buda¬ 
pest, Dalnok u. 5. 

C-64 kazettán keresem F- 
14 TOMCAT. Ugyanitt 


programok eladók. Vá¬ 
laszboríték. Farkas Dániel, 
7400 Komló, Vértanú u. 5. 

C-64-re már 3 Ft/db ártól 
eladók programok lemezre 
és kazettára nagy válasz¬ 
tékban. Válaszborítékért 
listát küldök. Kovács 
Krisztián, 6750 Szeged, 
Bartók B. u. 6. 

PLUS/4 és C64-es gépek¬ 
re program eladás, és cse¬ 
re! Programkészlet, 2— 
2000 prg. DEMO-t nem 
gyűjtök! Válaszboríték 
esetén részletes listát kül¬ 
dök. Novák Péter, 1132 
Budapest, Kresz Géza u. 
21 . 

Kedves olvasónk! A C-64- 
AMIGA rovatban megje¬ 
lent és egyéb játék-, fel¬ 
használói, valamint demo 
programok megrendelhe¬ 
tők. Hetente bővülő vá¬ 
laszték, precíz (vízhatlan) 
csomagolás, kedvezmé¬ 
nyek (AMIGA). 

Bélyeggel ellátott válasz- 
borítékért részletes tájé¬ 
koztatót és programlistát 
küldünk. Kérjük tüntesse 


fel a számítógép perifériáit 
(kiegészítőit), típusát. 
Amigán a lista mágnesle¬ 
mezen is kérhető egy 3.5- 
ös lemez, és 40 Ft-os bé¬ 
lyeg ellenében. C-64-en 
vállalunk epromégetést, 
cartridge készítést, vala¬ 
mint (adatbáziskezelő, 
nyilvántartó) készítését. 

A borítékokat géptípu.son- 
ként a következő címekre 
lehet feladni: 

AMIGA: FRIEND TWO 
CREW 1399 Bp., Pf.: 
701/55 Tel.: 1-351-289 
(naponta 16—20 óráig) 
C-64: BUMBLE BEE 
1116 BP., Sáfrány u. 44. 
Tel.: 1-627-724 
Várjuk olvasóink észrevé¬ 
teleit postacímünkre (1399 
Bp., Pf.: 701/55). 

C64-es programleírások 
40 FT-ért! Válaszboríté¬ 
kért lista! COMPI— 
CREW 9730 Kőszeg, De¬ 
ák F. u. 3/E. 

576KByte-ban megjelent 
és egyéb C-64-es progra¬ 
mok eladása lemezen és 
kazettán. Lemezes progra¬ 
mok kazettás változata is! 


APRÓCSKÁK 

t Érdemes! Deutsch Sza¬ 
bolcs, 8749 Zalakaros, Fő 
■ utca 19. Tel.: (93) 340-481 

Elektronikai-nyilvántartó 
‘ programok, C-64-re. Vá- 
> laszborítékot kérek. Varsá¬ 
nyi, 9700 Szombathely, 
Nagy L. u. 11. 

C-64-re programok 15 Ft¬ 
ért eladók! Válaszboríté¬ 
kért lista! COMPI-CREW, 
9730 Kőszeg, Deák F. u. 
3/E. 

C-64-re programok készí¬ 
tését vállaljuk! Válaszbo¬ 
rítékért árlista. Varga 
Soft, 9730 Kőszeg, Petőfi 
tér 26. 

C64-re leírások, oktató-, 
felhasználói- és játékprog¬ 
ramok 5 Ft-tól. Borítékért 
lista. Földesné, Szolnok, 
Győrffy u. 12. I./7. Tel.: 
56/420-544. 

C-64 + floppyra eladó an¬ 
golt tanító szókimondó 
program. Ára: 390 Ft + 
portó. Sándor Lajos, 5836 
Dombegyház, Ifj. It. A/3. 



1 

1 


IGEEEN! Megrendelem az 



1 


ACOMP 

Kft. 


Ha kivágta 
a megrendelőlapot, 

1 

1 

1 


borító hátoldalon szereplő kínálatából 
a feladó címére postai utánvétellel az alábbi termékeket: 


kérjük tegye 

1 

.... db 


. Ft/db: összesen . 

.... Ft 

felbélyegzett borítékba, 

1 

1 

.... db 


. Ft/db: összesen . 

.... Ft 

címezze meg. 

1 

.... db 


. Ft/db: összesen . 

.... Ft 

és úgy küldje el. 

1 

1 

.... db 


. Ft/db: összesen . 

.... Ft 


1 

.... db 


. Ft/db: összesen . 

.... Ft 

Köszönjük! 

1 .. 

.... db 


. Fi/db: összesen . 

.... Ft 


1 

1 




.Ft 


1 

1 

1 


Tudomásul veszem, hogy a csomagküldés átfutási ideje 2-4 hét. 
50.000,- Ft feletti megrendelésre csomagküldést nem vállalunk! 

Az áraink a postaköltséget nem tartalmazzák! 



I 








































Tippek-trükkök 

Gyorsabb programok 

A gyakrabban használt számokat, címeket és változókat a 
programok elején kell definiálni. Különösen akkor, ha azok cik¬ 
lusokban is előfordulnak. így a ciklusok .sokkal gyorsabban fut¬ 
nak le. Például: 

10 A = 100 

20 FÓR I = 1 TO 5234 
30 A = A + 1.3456 * I) 

40 B = PEEK (A -h 12 * I) 

50 NEXT 

Ez a program .sokkal lassabban fut le, mint az alábbi változata: 
10 A = 100: B = 0: C = 1.3456: D = 5234: F = 12 
20 FÓR I = 1 TO D 
30 A = A + C * I 
40 B = PEEK (A -I- F * I) 

50 NEXT 

Gyorsabb programok, 2. rész 

A szorzá.soknál is jelentős futási idő takarítható meg a C64 
olyannyira értékes gépidejéből. Cél.szerű, ha a több számjegyű 
szám a szorzandó, ennek megfelelően a kevesebb számjegyű 
szorzó áll hátul. Vagyis a 
6.15442324 * 4.65 
gyorsabban számítódik ki, mint a 
4.65 * 6.15442324 

Hasonlóképpen nagyon meggyorsítja a program futását, ha a 
hatványozást többszörös szorzásként végeztetjük el. Tehát nem 
X = 214 
hanem 

X = 2 * 2 * 2 * 2 

Ez utóbbi módszer természetesen csak egész értékű hatványra 
emeléskor használható. 


EGYESÜLET 


Programok a RAM-kiterjesztésben 


C128 módban a Basic programok átmenetileg a 17XX címen 
kezdődő RAM-kiterjesztésben tárolhatók. Általában erre a célra 
szolgál az alábbi utasítás sorozat: 

X = PEEK (4624) + 256*PEEK(4625) - (PEEK(45) - 
PEKK (46)*256) 

STASH X, 7169,0,0 
PRINT X 

Az X változó értékét meg kellene jegyezni, mivel ez a szám a 
program visszahozásához ismét szükséges le.sz. A 
FETCH X-érték, 7169,0,0 

utasítással lehet a programot ismét az operatív memóriába 
visszatöltcni. Ez azonban c.sak akkor funkcionál, ha a Basic 
program nem hosszabb 46079 bájtnál, illetve, ha grafikát is tar¬ 
talmaz, akkor 36863 bájtnál. 

Ha azonban a program ennél hosszabb, akkor az operációs 
rendszer hibája miatt az 53248 memóriahelytől kezdve már nem 
a Basic-RAM helyezkedik el, hanem az 1/O-terület. Megkísérel¬ 
ve az ilyen hosszú program visszatöltését, a gép lefagy, mivel 
az 1/0 rekesz átíródott. 


A következő asszembler-program megszünteti ezt a hibát: 


,,00310 sei 


megszakítás lezárva 


,,00311 Idx $flö0 
,,003f4 sty $df01 
,,003f7 óra #$01 
,,003f9 sta $ff00 
,,003fc cli 
, ,003fd jmp $03ec 
,,003ec stx $flö0 
,,003ef rts 


memória konfiguráció megjegyzés 
dma-vezérlő bcírá.sa 
ram az i/o alá kapcsolva 
memória konfiguráció beállítá,sa 
megszakítás feloldva 
ugrás a program maradékára 
régi konfiguráció beállítása 
ugrás a főprogramra 


A trükk abban áll, hogy a meg.szakítást meghatározott időre le¬ 
zárjuk. A DMA-vezérlő normál esetben abban a pillanatban a 
RAM-bővítésben dolgozik, amikor a $ DFOl reke.sz átíródik. 
Ha azonban a megszakítás le van tiltva, akkor a vezérlő c.sak a 
feloldó CLI után indul. Egé.szen eddig az utasításig bármely tet¬ 
szőleges memória konfigurációt állíthatunk be. Ennek megfele¬ 
lően a FETCH, STASH és SWAP utasítások kifogástalanul mű¬ 
ködnek. 


Feladó: 


DDDD 


ACOMP Kft. 

Csomagküldő Szolgálata 

Budapest 

XIV. Álmos vezér park 20. 

1141 


A C64-es rését kivédése 

A C64-es számos programja használ¬ 
ja a $8004-es címen alkalmazható úgyne¬ 
vezett moduljelzést a resetálló.ság érdeké¬ 
ben. A C128-as tulajdonosok ezt az aka¬ 
dályt könnyen átugorhatják. Váltsunk ki 
egy resetet a (RUN/STOP) gomb egyide¬ 
jű megnyomása mellett. A C128-as a be¬ 
épített monitorral jelentkezik vissza. Ad¬ 
juk be az alábbi sort: )08004 00 

Ezzel a 64-es moduljelzést tönkre¬ 
tesszük. A 64-es módot kívánságra a J 
FFF4d utasítással érhetjük el, illetve egy 
resettel, ha közben nyomjuk a {C=) 
(Commodore) billentyűt. A 64-es mód a 
moduljelzést nem találván a beviteli mód¬ 
dal jelentkezik be. Adott esetben a kívánt 
programon máris dolgozhatunk. 











296 

+4 

91/ 7 

Logi Köd 

60.- 

297 

C64 

92/ 1 

Databevivö 

50.- 

298 

+4 

91/ 7 

Bőmbe r 

50.- 

299 

+4 

91/ 7 

Dominó - K 

50.- 

300 

+4 

91/ 7 

The Wall 

40.- 

301 

C64 

91/ 7 

Mozaik - K 

50.- 

302 

+4 

91/ 7 

Dominó - R 

60.- 

303 

+4 

91/ 7 

*Borgok Kincse 

190.- 

304 

+4 

91/ 7 

Asteroids 

60.- 

305 

C64 

91/ 9 

Ékezetes irat forrás 

40.- 

306 

C64 

91/ 9 

Yugo2 

50.- 

307 

C64 

91/ 9 

Adventure - Sz 

130.- 

308 

C64 

91/ 9 

Morze Oktató B. 

130.- 

309 

+4 

91/ 9 

Memory Game Plus 

100.- 

310 

C64 

91/ 9 

•Capitaly 

130.- 

311 

C64 

91/ 9 

•Gengszterek 

60.- 

312 

C64 

91/ 9 

•Küldetés 2000 

.100.- 

313 

C64 

91/ 9 

Itt a $ hol a $ 

50.- 

314 

C64 

91/ 9 

Hewing 

50.- 

315 

+4 

91/10 

Mikrobí 

50.- 

316 

+4 

91/10 

Nest of Fleas 

190.- 

317 

+4 

91/10 

Adventure - F 

100.- 

319 

C64 

91/10 

Gondolkozó 

100.- 

320 

C64 

91/10 

Memori - B 

130.- 

321 

+4 

91/10 

Matekastély 

100.- 

322 

C64 

91/11 

Lottó 

80.- 

323 

C64 

91/11 

Totó 

80.- 

324 

C64 

91/11 

Német gyakorló 

60.- 

325 

+4 

91/11 

Beszélő szótár 

130.- 

326 

+4 

91/11 

Fiié exaroiner 

60.- 

327 

C64 

91/11 

Bprite szerkesztő 

50.- 

328 

C64 

91/11 

Egyszínű Sprite 

50.- 

329 

C64 

91/12 

Rulett javítás 

50.- 

330 

C64 

91/12 

Tőzsde 

130.- 

332 

C64 

92/ 1 

Kalandlap 

80.- 

333 

C64 

92/ 1 

Levél író 

80.- 

334 

C64 

92/ 1 

Képérnyömaszkoló 

130.- 

335 

C64 

92/ 1 

Sprite Kezelő 

100.- 

336 

C64 

92/ 1 

Sí - OPART 

40.- 

337 

C64 

92/ 2 

Patience Quartet 

130.- 

338 

C64 

92/ 2 

Monopoly 

130.- 

339 

C64 

92/ 2 

Akasztófa 

80.- 

340 

C64 

92/ 2 

Karaktertervező 

60.- 

341 

C64 

92/ 3 

Stríng Array Manager 

100.- 

342 

C64 

92/ 3 

Sprite Basic 

50.- 

343 

C64 

92/ 3 

Screen Help 

50.- 

344 

C64 

92/ 3 

Gyors validate 

60.- 

345 

C64 

92/ 3 

BASIC SYNTAXER I. 

190.- 

346 

C64 

92/ 4 

Tologató C64-re 

100.- 

347 

C64 

92/ 4 

ABC rendező 

100.- 

348 

C64 

92/ 5 

•Matek + Római számok 

100.- 

349 

+4 

92/ 6 

Tesztkészitö + értékelő 

100.- 

350 

C64 

92/ 3 

BASIC SYNTAXER II. 

190.- 

351 

4-4 

92/ 7 

Három Játék 

110.- 

352 

+4 

92/ 7 

Szökés 

60.- 

353 

C64 

92/ 7 

Toto 

150.- 

354 

C64 

92/ 7 

DIGIT analízis program 

110.- 

355 

+4 

92/ 7 

SCREEN DUMP 

150 

356 

C64 

92/ 9 

UNISED filekezelö 

130.- 

357 

C64 

92/ 9 

Graphic Copy 

60.- 

350 

C64 

92/10 

Príntfox Resizer 

130.- 

359 

C+4 

92/11 

Tologató I1. 

150.- 

360 

C+4 

92/12 

Sprite Plus-4-en 

130.- 

361 

C64 

92/12 

Változólista 

150.- 

362 

C64.+4 

93/ 2 

Szomszéd játék 

200.- 

363 

C64 

93/ 2 

Táblás játék 

200.- 

364 

C64 

93/ 2 

SEDA 

150.- 

365 

C64 

93/ 2 

415 - 200 

120.- 

366 

+4 

93/ 2 

OTP hitel 

100.- 

367 

C64 

93/ 3 

Catalog-Check(CTC> 

150.- 

368 

C64 

93/ 3 

Pattogó golyók 

200.- 

369 

C64 

93/ 3 

Beszoritós (DO-GUTI) 

150.- 

370 

C64 

93/ 3 

•Zsirozás 

200.- 

371 

C64 

93/ 4 

Attrib 64 

50.- 

372 

C64 

93/ 4 

Táblázatnyomtató 

80.- 

373 

C+4 

93/ 4 

Borítékkészitő 

80.- 

374 

C+4 

93/ 4 

TV-óra 

50.- 

375 

C64 

93/ 4 

Mini Domíno 

150.- 

376 

C64 

93/ 4 

Megathello 

120.- 

377 

C64 

93/ 4 

Reversi 

120.- 

378 

C64 

93/ 4 

Tengeri csata 

120.- 

379 

C64 

93/ 5 

Videokazetták 

80.- 

380 

C+4 

93/ 5 

DIN-karakterek 

80.- 

381 

C64 

93/ 5 

DIRYDIRY 

80.- 

362 

C64 

93/ 5 

Birodalom 

150.- 

383 

C64 

93/ 6 

Csőamőba 

100.- 

364 

C+4 

93/ 6 

Függvényábrázolás 

150.- 

385 

C64 

93/ 6 

Amoba - E 

100.- 

366 

C64 

93/ 6 

Bődy Building 

60.- 

387 

C64 

93/ 7 

Colour BASIC 

80.- 

368 

C64 

93/ 7 

Dírectory kezelő 

60.- 

369 

C64 

93/ 7 

ötmezős KONO 

80.- 

390 

C64 

93/ 7 

Fogócska 

80.- 

391 

C+4 

93/ 7 

Klick - Klack 

120.- 

392 

C64 

93/ 9 

Órarend 

60.- 

393 

C64 

93/ 9 

Malomjáték 

80.- 

394 

C+4 

93/10 

Magyar nyomtatás 

120.- 

395 

C64 

93/10 

Pettyes szfinx 

60.- 

396 

C64 

93/11 

Ku Danin óra 

60.- 

397 

C64 

93/11 

Elásott kincs 

80.- 

398 

C64 

93/11 

Turbo Sort 

80.- 


A "-gal jelölt programok csak lemezen rendelhetők ! 



Kérem, hogy a Commodore Újság legközelebbi számában 
jelenjen meg a következő szövegű apróhirdetés: 


(minden kockába egy betűt írjon) 


1 1 
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1 1 
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1 1 
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Tagsági szám: 


Feladandó az újság címére: 

Commodore Újság 
Budapest, 1388. Pf. 86. 

Alulírott megrendelem a következő programokat a PÖTYÖ- 
GŐSZOLGÁLAT-tól: 


PROGRAM SORSZÁMA 

ÁRA 

1- 

1 


MJ'- Ft 

2. 



LM'- Ft 

3. 



LM'- Ft 

4. 



U LM'-Ft 

5. 



LMJ'- Ft 

6. 



LM'- Ft 

7. 




LM'- Ft 

8. 



U LM Ft 

9. 



LU'- Ft 

összesen: 



db 1 1 1 1 Ft 


A programokat a SZOLGÁLAT által biztosított 
lemezre (99 Ft/db) 
kazettára (40 Ft/db) 

az általam küldött adathordozóra kérem. 

(Kérjük a megfelelő szöveg aláhúzását!) 

Postaköltség + munkadíj 

A fizetés módja: személyesen — csekken — utánvéttel 

(Kérjük a megfelelő szöveg aláhúzását!) 

ÖSSZESEN: 

A megrendelő neve: . 


Címe: 



49 - januAr 









































































EGYESÜLET 


ACOMP Kft. 

JANUÁRI 
60 Ft-os 

vásárlási utalványa 

Beváltható 500 Ft feletti 

készpénzes vásárlás esetén a 

1135 Budapest, Szent László u. 74/A. és 

1191 Budapest, Katica u. 9. 

szám alatti üzletekben. 

Érvényes: 1994. január 31-ig. 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


A NOVOTRADE SZERVIZ Kft. az alább felsorolt szervizeiben 
mindenféle szervizszolgáltatás munkadíjából 10% kedvez¬ 
ményt ad az egyesületi tagoknak. 


1083 Budapest, Szigony u. 8. 

3525 Miskolc, Fazekas u. 1-3. 

5600 Békéscsaba, Bartók B. u. 37. 
6724 Szeged, Csongrádi sugárút 76 
9700 Szombathely, Szalonak u. 31. 


Tel.: 1343-153 
Tel.: 46/321-488 
Tel.: 66/327-195 
Tel.: 62/493-185 
Tel.: 94/314-519 


Igazolás: a javítandó berendezés leadásakor egyesületi igazolvánnyal. 
A kedvezmény többször is igénybe vehető. 



MAKROVILÁG 

utazási iroda 


Az Országos Commodore Egyesület szolgáltatásai 

Egyesületi tagoknak 20% kedvezmény: 


Beváltható 

utazás megrendelése esetén 

az Üllői úti főirodában az alábbiak szerint: 

5 000 Ft-lg — 200 Ft kedvezmény 

10 000 Ft-ig — 400 Ft kedvezmény 

20 000 Ft-ig — 600 Ft kedvezmény 

20 000 Ft felett — 1000 Ft kedvezmény 
Csoportok jelentkezése esetén további 
kedvezményekről az irodában lehet tárgyalni 



60 Ft-os 

vásárlási utalvány 


Beváltható készpénzes 
vásárlás esetén a 2C Áruházban. 
Bp. XIII., Balzac u. 35. 

Érvényes: 1994. január 31-ig. 


HOBBI ELEKTRONIKA 

JANUÁRI 

vásárlási utalványa 

Értéke: 

5000 Ft-ig 80Ft, 

5000 Ft felett 10% 

Beváltható a Hobbi Elektronika Ktt.-nél. 
Budapest VII., Dózsa György u. 16. 
Telefon: 122-8892 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


VC— 20 memóriabővítés 3—27 kByte-os: kiépítéstől függő 

C—16, C—116 memóriájának bővítése 64 kByte-ra: 3500 Ft 

C—16 belső 16 kByte-os EPROM bővítés: 1450 Ft 

C—16 belső 32 kByte-os EPROM bővítés; 2900 Ft 

C—16 belső 8 kByte-os SOFT—ROM bővítés: 2800 Ft 

C—16 belső 32 kByte-os SOFT—ROM bővítés: 4000 Ft 

C—16 8 kByte-ról 32 kByte-ra átalakítás: 2000 Ft 

C—16 és 1541 kompatibilis lemezegység párhuzamosítása: 3200 Ft 

SOFTROM modul 32K, kikapcsoláskor sem felejt C-16, C-116, +4 5000 Ft 

FÉK C—16. C—116. +4 potméteres sebességváltoztatás 

0%-tól 100%-ig fokozatmentesen 2000 Ft 

TTL IC-teszter (Cartridge+lemezen a program) 4300 Ft 

+4, C—16, C—116 UNI—ROM rrxxjul különféle kiépítésekben: 

— 8 kByte SOFT—ROM 3400 Ft 

— 16 kByte SOFT—ROM 4000 Ft 

— 8 kByte SOFT—ROM 16 kByte EPROM 4400 Ft 

— 16 kByte SOFT—ROM 16 kByte EPROM 5000 Ft 

— 16 kByte EPROM 2200 Ft 

Egyesület tagoknak 30% kedvezmény: 

Speeddos (átkapcsolható) operációs rendszer beépítése 

(C64 átalakítás, lemezegység átalakítás -t- párhuzamos kábel) 5000 Ft 

1541 kompatibilis lemezegységbe elektronikus lemezlyukasztó beépítése 900 Ft 

PAGEFOX magyar ékezetes kiadvány-szerkesztő cartridge 
(a teljes A/4-es oldal kinyomtatásához 640 pont/soros nyomtató szükesé- 
ges minimum, pl. Citizen 120D) 5500 Ft 

FASTLOAD cartridge (lemezes gyorstöltő, másoló, monitor) 1500 Ft 

TTL IC-teszter cartridge -(- program 4300 FT 

288/256 Kbyte-os eprombank (vezérlő eprommal) 5000 Ft 

Epromégető (2716-tól 27512-ig) 5000 Ft 

C64-hez tároló oszcilloszkóp 8000 Ft 

C64-b6vItő-port elosztó (egyszerre 4 db cartridge lehet a gépben, melyeket 
gombnyomásra lehet kapcsolni) 7500 Ft 

C64 USER - CENTRONICS nyomtatókábel (GEOS kábel) 1500 Ft 

256 K RAM-diszk (256 Kbyte RAM-mal) 14000 Ft 

256 K RAM-diszk (64 Kbyte RAM-mal) 9000 Ft 

2x64 Kbyte-os cartridge igény szerinti programokkal feltöltve 4.300 Ft 

64 Kbyte-os cartridge igény szerinti programokkal feltöltve 3000 Ft 

Képújság (teletext) dekóder C-64-re 10000 Ft 

1764-es RAM bővítő GEOS-hoz is használható 11250 Ft 

Epromok programozása meglévő programokkal, vagy saját hozott progra¬ 
mok beégetésével 2716-tól 27512-ig az eprommal együtt egységesen 700 Ft 

Arainkat az alkatrészárak változásai befolyásolhatják. 

A fenti bővítések megrendelhetők levélben az O.C.E. elmén, valamint sze¬ 
mélyesen a havonta rendezendő klubdélelőttön, ahol rendszeres bemutatót 
is tartunk. 


Postázás esetén 100 Ft postaköltség kerül felszámításra. 

A kedvezmény igénybevételéhez az O.C.E. tagsági igazolvány bemutatása 
szükséges. 


c* 


JANUÁR ~50 


SZERVIZ Kft. 










- 

Sy Quest 


Hivatalos magyarországi disztribútora; 



Cím: 1053 Budapest, Henszimann I. u. 9 
Telefon: 117-4144 Telefax: 117-9692 


Cserélhető lemezes winchester! 

Szervizeinkben és szerződött viszonteladóinkon keresztül az alábbiakat forgalmazzuk: 


SQ 555 

44 MB-os 5V4 

SCSI drive, 

SQ 400 lemez 

( 44 MB) 

SQ 5110 

88 MB-os 5V4 

SCSI drive, 

SQ 800 lemez 

( 88 MB) 

SQ 3105A 

105 MB-os 3V2 

AT-BUS drive, 

SQ 310 lemez 

(105 MB) 

SQ 2542A 

42 MB-os 2 V 2 

AT-BUS drive. 

SQ 240 lemez 

( 42 MB) 


\ _ / 


r 




Számítógépszerviz I 

Személyi számítógépek és perifériák javítását, karbantartását továbbra is tőlünk 
rendelje meg! Gyors, pontos és megbízhatói Örök garanciát kap, 
ha átalánydíjas javítási és karbantartási szerződésformánkkal 
védi nagy értékű gépei műszaki állapotát 

Várjuk jelentkezését az alábbi szervizeinkben; 


1083 

Budapest, 

Szigony u. 8. 

Tel.: 

1343-153 

3525 

Miskolc, 

Fazekas u. 1-3. 

Tel.: 

46/321-488 

5600 

Békéscsaba, 

Bartók B. u. 37. 

Tel.: 

66/327-195 

6724 

Szeged, 

Csongrádi sgt. 76. 

Tel.: 

62/493-185 

9700 

Szombathely, 

Szalonak u. 31. 

Tel.; 

94/314-519 


NOVOTRADE SZERVIZ KFT. 




















Ára: 156 Ft 



SZÁMÍTÁSTECHNIKÁI KFT. 


1125 Budapest, Királyhágó utca 2. 

1135 Budapest, Szent László út. 74./A. 
1191 Budapest, Katica utca 9. 


Tel.: 156-6790 
Tel.: 149-6165 
Tel.: 147-0625 


Fax: 251-2385 
Fax: 251-2385 
Fax: 177-9419 


Commodore Amiga 500 

29 990 

Ft 

Commodore Amiga 500 Plus 

29 990 

Ft 

Commodore /\miga 600 

29 990 

Ft 

Commodore Amiga 1200 

49 990 

Ft 

Commodore Amiga CD-32 

49 990 

Ft 

A 600 / A 1200-hoz 40 MB HD kábellel 

21 990 

Ft 

60 MB HD kábellel 

24 990 

Ft 

80 MB HD kábellel 

28 990 

Ft 

120 MB HD kábellel 

36 990 

Ft 

Commodore Amiga 4000/030/4MB/120MB 

209 000 

Ft 

Commodore 1940 Multisync Stereo Monitor 

49 990 

Ft 

Commodore 1084s Stereo-Color monitor 

29 990 

Ft 

Commodore 1085s Stereo-Color monitor 

29 990 

Ft 

Commodore A-520 TV-Modulator 

4 990 

Ft/ 

Commodore C-64 II VIDEOGAME SET 

13 990 

Fi 

Commodore C-64 TERMINÁL SET 

19 990 

fSt 

Commodore 1541 II Floppy drive 

9 990, 

m 

Commodore MPS 1230 printer 

23 990' 

Ft 

512 Kb órás memóriabővító 

4 99® 

Ft 

2.0 Mb órás memóriabővítő 

9 9®3 

Ft. 

1.0 Mb-os chip bővítő Amiga 500 Plus-ba 

6 ^ 

Ft 

1.0 Mb-os órás chip bővítő Amiga 600-ba 

6/900 

Ft 

Mouse pad 

/ 220 

Ft 

Noris üveg 14” maÉorfiltér- - 

:! 490 

Ft 

Noris hálós 14”.álonitorfllter 

400^ 

Noris MB 80 3i'5” lemeztartó 

~ -m 

Ft 

Noris DB 1Qö''5,25” lemeztartó 

420 

Ft 

Noris PorvéiS Amiga 500 / 500 Plus 

890 

Ft 

Noris PonÉdtó C-64 il. 

590 

Ft 

Sound ^ter PRQ-2 Deluxe 

17 900 

Ft 

Sound.Saster 16 ASP Deluxe 

32 900 

Ft 

Sound Blaster 16 Basic 

24 900 

Ft 

Amija Magazin (német) újság 

490 

Ft 

Poa®r Play (német) újság 

490 

Ft 

30 DC2120 Streamer kazetta 

2 900 

Ft 

Amiga - EuroScart kábel 

1 190 

Ft 

NoName 3.5” DSDD lemez 

550 

Ft 

NoNams- J.5” DSHD lemez 

790 

Ft 

NoName 5.25* lemez 

200 

Ft 

Maxell 3.5” MF2-DD- f 8 Ba|z 

750 

Ft 

Maxell 3.5” MF2-HD lemez 

1 390 

Ft 

Maxell 5.25” MD2-HD lemez 

- m 

Ft 


Verbatim 

Verbatim 

Profex 

Profex 

Fuji 

BASF 


3,5” DSDD lemez 750 Ft 

5,25” DSHD lemez 750 Ft 

3.5” DSHD lemez (11 db/Form) 1 190 Ft 

5.25" DSHD lemez (11 db/Form) 395 Ft 

5.25” MD 2DD lemez 330 Ft 

5,25” MF 2DD lemez 330 Ft 


Action Replay MK III. (Amiga) + könyv 
Action Replay MK VI. Pro (C-64) + könyv 
C-64 midi szoftverrel 
C-^C-tafr Joystick Mouse 
C-64/C-128 ClMouse 
Swifty Amiga/Atari Mouse-gombos) 

4 Player Adapter(4 Joystick csatoló)' 
Képdigitalizáló + RGB splitter 
MfíDse-jEr Joystick automatikus kiválasztó 
Reál Tiiö^^^ fór, Amiga 1200 
Midi Amiga li^^fece 
Hi^dyscanner Amigához 
Boot Selector Amigához 
St_ereo hangdigitalizáló Amigához 
“Trackball Amigához 

Rocgen Genlock fór Amiga 1 r 
Rockey AdvapcecLVidM Ffeyipi forÍAm^ 
1.76 Mp^D JBtsí^dwe Aw igához íO^r) 
Roctec^\ /wig^lK) k^őJdíÁeJ 
Rocte^5^0jj^ntiA(tó Amiga drive 
Roct 9 f 3 , 5 ’*Black Anti-Vírus Amiga drive 
^^űCtec 3,5” Amiga belső drive 
Rochard JdD kontroller A500/A500+ 

. -r- + 8 O 5 MB Hard Disk 

_-(■ 1 MB SIMMJam,, 


9 990 Ft 

5 900 Ft 

6 500 Ft 

1 990 Ft 

2 490 Ft 
1 990 Ft 
1 890 Ft 

13 900 Ft 

1 990 Ft 

2 490 Ft 

3 490 Ft 

14 900 Ft 
U90 Ft 
649© Ft 
3 590 Ft 
9 900 Ft 

24 900 Ft 
16990 Ft 
9 990 Ft 
9 990 Ft 
9 990 Ft 
8 500 Ft 
17.900 Ft 
24 990 Ft 
6 500 Ft 

-i--' ' 

QuickéhcíJ^- 113 IBM ■ ' ■- 990 Ft 

Quickshot QS" Warrlor IBM 1 290 Ft 

Quickshot QS - 146 lniru(isi€ IBM 2 790 Ft 

Quickshot QS - 151 Aviator5 IBM 3 490 Ft 

Quickshot QS - 101 I. 450 Ft 

Quickshot QS - 102N II. 580 Ft 

Quickshot QS - 102P II. Plus Mikrokap. 660 Ft 

Quickshot QS - 111A II. Turbo Mikrokap. 790 Ft 

Quickshot QS - 128 MaverickI 1 390 Ft 

Quickshot QS - 129F FlightgripI 750 Ft 

Quickshot QS -r 130F Pythoni 850 Ft 

Quickshot QS ^ 137F PythonIM Mikrok. 990 Ft 

Quickshot QS -- 155 Aviatorl Mikrokap. 2 890 Ft 

Quickshot QS - 149 Intruderl.- 2 690 Ft 

Quickshot QS - 130N Pyton2 Nintendo 990 Ft 
Dynamics Competition Pro 5Ó00 ■ 1 090 Ft 

„Dynamics Competition Pro IBM 3 990 Ft 

DyrraTm®i Competition Pro 5000 Mini 1 490 Ft 

Dynamics Cömp^ition Star Mini 1 990 Ft 

Dynamics Competition Special Mini 1 690 Ft 

Dynamics Competition Transparent Mini 1 690 Ft 


Araink mindenkori változtatásának a jogát fenntartjuk! 


Araink az 1 év garanciát és az ÁFA-t tartalmazzák! 


SZENZÁCIÓ!! SEGA MEGADRIVE + 1 CQNTROLE PAD 4 1 JÁTÉK KÁRTYA CSAK 18 990 Ft 







